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Part  I JOINING  A SERIES  OF  LUNAR  ORBITER  FRAMELETS 
Review  of  the  source  of  the  data 

Photographs  of  the  Lunar  surface  are  processed  on  board  the  Lunar 
Orbiter  (LO)  spacecraft.  Subsequently,  the  photographs  are  read  out  using 
a flying  spot  scanner  which  is  moved  up  and  down  mechanically.  About  17,500 
video  lines  are  produced  for  each  framelet,  which  is  a strip  of  70mm  film 
about  one- tenth  inch  wide.  This  video  signal. is  transmitted  and  is  then 
recorded  on  video  tape  to  be  later  digitized.  The  digital  tapes,,  containing 
an  array  as  large  as  about  8,500  by  636  6 bit  bytes,  are  edited  and 

rewritten  so  that  each  tape  will  contain  some  of ~ the  70mm  film  edge  data 

/ 

< 

and  a header  to  make  identification  easy.  The  basic  concern  of  this 
investigation  is  the  joining  together,  by  digital  computer,  of  adjacent 
frameiets.  In  order  to  understand  the  sometimes  mysterious  gyrations  the 
actual  solution  takes,  we  need  to  study  the  film  handling  system,  the 
readout  system  and  the  digitization  system  in  much  more  detail. 

1 . The  film  handling  system  - . 

The  film  handling  system  transports  and  stores  the  photographic  film 
during  some  of  the  photo  subsystem  operational  modes.  The  system  transports 
the  film  in  two  directions forward  and  reverse.  During  the  photographic, 
processing  and  wind-up  modes,  the  film  moves  toward  the  take-up  reel  (in  the 
forward  direction).  We  are  particularly  interested  in, the  operation  during 
final  read-out.  The  component  which  performs  this  function  is  called  the 
read-out  drive.  The  following  information  is  taken  in  part  from  the 
document  "Photographic  Subsystem  Reference  Handbook  for  the  Lunar  -Orbiter 
Program1*  (//L-018375-RU)  prepared  by  Eastman  Kodack  Company,  Rochester, 
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New  York  14650,  15  March  1966. 

During  both  quick-look  and  final  read-out  modes,  the  processed  film 
is  moved  continuously  at  a measured  rate  in  the  reverse  direction  by 
means  of  a geared-metering  roller.  Three  cam-driven  operations  take  place: 

(1)  a high  precision  cylindrical  cam  moves  the  scanning  lens  across  the 
film  (2)  a simple  cam  operates  the  film  clamp  so  that  focus  is  obtained 
(with  respect  to  the  scanner  lens),  and  (3)  a simple  cam  step  advances  film 
in  the  read-out  gate  at  the  end  of  each  scan.  The  motor  is  turned  ON  when 
suitable  motor  signals  are  supplied  from  the'  control  to  the  read-out  control 
electronics  power-switch  circuitry.  During  a scan  <?f  a framelet,  the 
metering  roller  slowly  draws  film  out  of  a loop  on  the  read-out  looper  side' 
of  the  read-out  gate  and  continuously  feeds  the  read-out  looper.  See  Fig.  1.1. 
The  roller  in  this  looper  is  connected  by  a lever  to  a similar  roller  and 
loop  on  the  take-up  side  of  the  read-out  gate.  As  film  is  drawn  out  of  the 
output  loop  the  lever  transmits  the  force  and  the  input  loop  is  enlarged 
and  draws  film  at  the  same  steady  rate  out  of  the  film  take-up  assembly. 

Between  these  loops  the  film  clamp  holds -the  film  section  being  scanned 
stationary  in  the  read-out  gate.  When  the  end  of  the  scan  (or  scanning 
lens  turn-around)  is  reached,  the  cam  operated  gate  opens  and  the  lever 
between  the  loops  is  cam  driven  to  move  film  in  step  fashion  through  the 
gate.  The  film  clamp  recloses  and  scan  resumes  back  across  the  film.  The 
cams  are  all  two  cycle  to  accomplish  back  and  forth  scan  operation.  The 
metering  roller  supplies  an  accurate  0.100  inch  of  film  in  each  framelet. 

The  sequence  continues  moving  the  scanning  lens  back  and  forth  across  the 
film  and  advancing  the  film  through  the  read-out  system  until  the  command 
"read-out  drive  OFF"  or  other  inhibiting  logic  occurs. 


Fig.  1.1  Film  Advance  Mechanism 
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Attached  to  the  cam  is  a two  segment  encoder  switch  whose  logic 

* 

indicates  two  positions  of  the  optical-mechanical  scanner*  The  spot-stop 
condition  indicates  that  the  scanner  is  positioned  at  its  farthest 
excursion  on  the  p re-exposed,  calibration  side  of  the  film  where  the  film 
clamp  is  released.  When  the  read-out  is  commanded  OFF,  the  drive  mechanism 
will  continue  until  it  arrives  at  the  spot-stop  position.  Then  the 
spot-stop  condition  will  turn  the  drive  motor  OFF..  During  modes  where  film 
travels  in  the  forward  direction  through  the  read-out  gate,  the  read-out 
drive-motor  clutch  is  disengaged  by  a certain  control  signal.  With  the 
clutch  disengaged  and  the  clamp  released,  film  free-wheels  through  the 
scanner.  ' 

t 

It  should  be  apparent  that  there  will  be  little  tendancy  for  the  film 
to  rotate  during  transport.  On  the  other  hand,  the  mechanism  which  causes 
the  film  to  advance  surely  seems  to  be  susceptible  to  random  errors. 

These  errors  could  effect  the  output  data  by  making  the  overlap  between 
adjacent  framelets  less  (or  more)  than  expected.  The  most  obvious  sources 

of  the  observed  errors  lie  in  the  metering  drive  roller  and  the  index 

« 

looper  (See  Fig.  1.1) 

1.2  If  the  metering  drive  allows  too  much  film  thru 
(ie  more  than  .100”),  then  the  overlap  between 
adjacent  framelets  will  be  less  than  expected. 

c .* 

.1.3  The  actual  advance  of  the  film  is  done  by  the 
index  looper  and  index  cam.  (All  the  metering 
drive  roller  does  is  furnish  a constant  average). 

Since  this  drive  is  in  effect  a friction 
operated  drive,  one  may  expect  random  errors, 
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causing  variable  overlap  between  adjacent  framelets. 

(All  experimental  investigations  reported  on  here  have  involved  data  with 
between  one  and  two  percent  overlap,  with  this  amount  being  highly 
variable,  thus  reinforcing  the  suspicion  that  the  advance  mechanism  is 
subject  to  errors.) 

2.  The  readout  mechanism 

After  the  film  is  positional  by  the  transport  mechanism,  the  film  is 

read  out  by  a flying  spot  scanner  which  is  moved  up  and  down  mechanically. 

The  mechanical  movement  apparently  involves  a mirror  and  a cam  which  are 

not  syncronized  to  anything  else  on  the  LO  system.-  The  flying  spot 

€ 

scanner  operates  by  a magnetically  focused  and  deflected  electron  beam 
hitting  a rotating  short  persistence  phosphor  drum.  The  light  from  the 
drum  is  focused  and  reflected  through  the  film.  A photo  multiplier-video 
subsystem  produces  an  output  video,  signal  which  is  transmitted  to  Earth. 
Obvious  sources  of  concern  for  us  here  are  the  characteristics  of  the 
rotating  drum  , the  linearity  of  the  electrical  scan,  the  uniformity  of 
the  focus,  the  linearity  of  the  mechanical  scan,  and  the  repeatability  of 
any  of  the  possible  defects  in  these  properties. 

2 . 3 Rotating  drum  • 

Early  in  the  LO  program,  the  rotating  drum  was  recognized  as  being  a 
source  of  distortion  in  LO  photographic  data  since  the  pattern  of  the  drum 
will  clearly  be  imprinted  on  each  readout.  This  pattern  is  called  the 
ndrum  signature",  and  results  from  nonuniformities  of  the  phosphor  coating 
on  the  drum.  Part  of  the  drum  signature  is  intentionally  put  on  the  drum 
before  it  is  sealed  in  the  line  scan  tube.  Scratches  which  project  about 
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seven  microns  wide  by  fifty-six  microns  high  (almost  half  way  around  the 
drum)  are  placed  on  the  drum  near  the  ends.  These  marks  will  be  called 
"drummarks"  here  to  avoid  confusion  with  other  callibration  marks.  The  main 
trouble  with  the  drummarks  is  that  they  live  in  the  area  of  overlap;  later, 
we  will  display  a more  exact  evaluation  of  where  the  drummarks  are.  For  our 
purposes  here,-  however,  it  turns  out  that  the  drummarks  are  an.  almost  fatal 
hinderence,  since  they  combine  to  leave  almost  no  area  of  overlap. in  which 
matching  of  adjacent  framelets  can  be  accomplished.  The  problem  of  the 
drum  signature  (leaving  aside  the  drummarks) „ is  also  severe,  although  the 
signature  is  undetectable  with  the  eye  observing  GRE  (Ground  Reconstruction 
Equipment)  prints  of  LO  imagry.  We  found  that  sensitive  detection  algorithms 
(namely  cross-correlation)  picked  up  the  drum  signature  over  the  very  weak 
"signal11,  probably  because  our  algorithm  was  necessarily  strongly  biased 
to  be  sensitive  in  the  direction  perpendicular  to  the  direction  of  scan 
(which  is  exactly  the  worst  possible  direction  for  the  drum  signature) . 

2.4  Linearity  of  electrical  scan 

Measurements  of  GRE  35mm  film  showed  that  the  electrical  scan  linearity 
is  -within  specifications  for  LO  data.  These  measurements  were  made  on  the 
linearity  test  bars  at  one  edge  of  each  framelet.  Nonlinearities  of  the 
electrical  scan  are  completely  masked  by  jitter  in  the  digitizer  and  will 
not  be  considered  further. 

2 . 5 Uniformity  of  focus  of  the  scan  spot  / o 

The  spot  is  not  uniformly  focused  onto  the  film.  The  most  obvious 
place  to  blame  this  nonuniformity  on  is  the  focus  of  the  electron  beam 
onto  the  drum.  The  characteristic  W-shaped  variation  in  intensity  of  the 
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spot  optical  focusing  onto  the  film,  called  the  line  scan  signature,  is 
immediately  obvious  looking  at  the  early  GRE  film  (before  GRE  correction 
was  incorporated) . In  the  LO  Analysis  Program,  this  effect  was  noted  and 
corrected  for  by  means  of  a simple  algorithm  which,  by  repeated  averaging, 
obtained  corrections  and  then  smoothed  the  corrections  to  obtain  correction 
factors  which  were  applied  multiplicatively . This  is  conceptually  the 
correct  response  to  the  line  scan  signature  problem.  However,  the 
proceedure  acceptable  for  the  analysis  program  was  inadequate  for  our 
purposes  since  the  smoothing  proceedure  used  there  is  very  poor  on  the 
edges.  This  has  the  effect  of  not  completely  correcting  for  the  line  scan 
signature  and  leading  to  unpredictable  results  in  the  matching  process. 
Improved  correction  factors  were  accordingly  developed  and  applied. 

2 . 6 Linearity  of  the  mechanical  scan 

Most  suspect  of  all  the  possible  defects  in  the  LO  readout  subsystem 
is  the  device  which  moves  , the  scan  line  up  and  down.  Examination  of  the 
GRE  film  reveals  large  (five  percent)  variation  in  the  mechanical  scan 
direction,  leading  to  such  unusual  moon  features  as  split  craters  or 
staggared  rills,  even  when  the  reconstruction  of  the  35mm  strips  is  done 
by  hand.  Our  experimental  observation  of  the  digitized  information  leads 
to  the  same  conclusion,  that  is,  that  a variation  of  five  scan  lines 
(about  18  y)  over  a step  of  one  hundred  scan  lines  (about  350  y)  is  not 
unusual.  While  these  numbers  seem  small,  18y  represents  a displacement  of 
nearly  two  meters  (at  a nominal  height  of  46  km).  Since  the 
nominal  resolution  is  one  meter,  it  is  easy  to  imagine  what 
this  nonlinearity  does  to  stereo-photogrammetric  work.  The  problem  of 
matching  adjacent  framelets  is  also  gravely  effected  by  this  nonlinearity. 
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since  it  strongly  restricts  the  size  of  the  detection  algorithm. 


2 . 7 Possible  corrections 

Of  the  three  undesirable  problems  noted  above,  the  only  easily 
corrected  one  is  the  problem  of  the  scan  line  signature.  Neither  of  the 
other  two  problems  are  very  easily  corrected  for,  and,  in  fact,  must  merely 
be  lived  with.  The  drum  signature  can  probably  be  corrected  for,  but  with 
a large  amount  of  computer  time  being  required  to  detect  just  what  it  is 
(since  as  a two  dimensional  signal  it  is  so  weak).  Conceptually,  this 
correction  would-be  performed  as  follows:  form  a 34  x 636  array  of 

correction  factors  to  be  applied  over  each  complete  drum  signature 
(syncronized,  say,  with  the  start  of  each  (very  easily  detected)  drummark) , 
and  apply  the  correction  factors  when  making  other  corrections.  The 
method  of  forming  the  drum  signature  correction  factors  would  be  like  the 


forming  of  the  line  scan  signature  correction  factors  except  that  the 
averaging  would  be  carried  out  over  successive  34  x 636  areas  synchronized 
with  the  drummarks.  If  we  accept  as  adaquate,  say,  a mere  fifty  thousand 
points  averaged  for  each  drum  signature  correction  point,  (an  amount  just 
barely  acceptable  in  view  of  the  weakness  of  the  signature) , this  would 
involve  reading  about  two  hundred  reels  of  LO  digitized  data,  an 
insurmountable  logistics  problem  in  a reasonable  time.  (The  computations 
would  all  be  tape  read  bound) . The  algorithims  for  detecting  the  drum 
signature  in  this,  way  were  carried  as  far  as  the  flow  chart  stage,  but 
were  not  implemented  because  another  method  was  found  to  match  adjacent 
framelets  even  with  the  drum  signature.  See  Figs.  - 2.7.1  thru '2.7.3. 


2,7.1  General  Flow  Chart  - Correction  For  Drum  Signature 
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2.7.1  General  Flow  Chart  - Correction  For  Drum  Signature  - Continued 
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2.7.3  Subroutine  LFDM 
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2.7.4  Subroutine  LDM 
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Much  more  difficult,  probably  impossible,  is  the  problem  of  the 
mechanical  scan  nonlinearity.  This  nonlinearity  seems  to  be  non-periodic. 

In  any  event,  the  period  is  not  short  enough  to  be  of  any  use  to  us  in 
solving  the  problem  of  joining  adjacent  framelets.  (It  would  have  been 
very  useful  to  have  a verticle  linearity  test  pattern  (easily  machine 
recognizable  and  also  removable)  flashed  on  the  film  with  the  Reseau  and 
edge  data  pattern,  but  none  was  available.)  The  mechanical  scan  nonlinearity 
is  severe  and  nonrepeatable  over  practical  amounts  of  data. 

3 . The  digitization  system 

Probably  the  most  unbelievable  error  of  all  "lies  in  the  design  of 
the  digitization  system.  The  main  source  of  this  error  is  the  fact  that 
the  sampling  pulse  generator  is  crystal  controlled  (and  so  not  phase 
locked  to  the  sync  pulse).  This  design  deficiency  is  all  the  more 
remarkable  in  view  of  the  fact  that  the  GRE  obviously  has  the  necessary 
basic  hardware  to  obtain' phase  locked  sampling.  In  order  to  understand 
the  effect  of  a free  running  sample  oscillator,  we  may  refer  to  the 
block  diagram  Fig.  3.1,  In  order  to  illustrate  the  effect  of  a free-running 
oscillator,  consider  the  following  examples:  In  Fig.  3.2a,  the  MonM 

pulse  from  the  sync  detector  occured  at  point  a on  the  555  kHz.  sine 
wave;  similarily,  in  Fig.  3.2b  (and  c)  the  "on"  pulse  from  the  sync 
detector  occured  at  point  b (respectively  c)  on  the  555kHz  sine  wave  in 
Fig.  3.2.  If  we  "reconstruct"  the  three  digitized  versions  of  our  input 
video  signal  by  linear  interpolation,  the  three  digitized  versions  (of  the 
same  information)  appear  as  in  Fig.  3.3.  The  net  effect  is  that  there  is 
°a  jl  one  digital  element  (peak)  jitter  in  the  digitized  information. 


Sampling  pulses . q 


Sampling  pulses , " b " 


Fig.  3.2 


t=2,  t> 


Or  C 


Fig.  3.3 
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(It  should  be  pointed  out  that  the  sampling  rate  is  adaquate,  and  that  in 
these  examples  the  input  video  signal  has  frequency  components  well  within 
the  limits  imposed  by  the  sampling  restrictions.)  Since,  over  a short 
period  of  time,  both  the  analog  tape  drive  and  the  crystal  oscillator  are 
very  stable,  one  may  expect  to  see  a "beat"  between  the  two  repetition 
rates  resulting  in  the  jitter  not  being  random  at  *rall  but  moving  back  and 
fourth  snake-li'ke. 

The  jitter  has  three  serious  effects  on  the  problem  of  joining  adjacent 
framelets: 

(a)  The  jitter  in  adjacent  f ramie ts  is  far  from  being 
synchronized,  and  results  in  a + 2 (peak)  digital 
elements  relative  jitter. 

(b)  The  drummarks  are  spread  by  the  jitter  over 
an  area  4 digital  elements  wide,  instead  of  2 
elements  (the  width  of  a cross  section  of  a 
particular  drummark.)  This  restricts  the 
useable  overlap  even /more. 

(c)  A feature,  such  as  a crater  edge,  which  we 
would  like  to  locate  and  use  in  the  matching 
process,  has  had  some  "wormey  noise"  added. 

To  illustrate  this  problem,  we  refer  to  Fig.  3.4. 

In  Fig.  3.4a,  a Lunar  feature  (perhaps  the  edge 
of  a crater)  is  shown  in  the  left  and  right 
edges  of  adjacent  framelets.  Any  matching 
algorithm  will  attempt  to  match  up  the  jitter 
in  the  adjacent  framelets,  resulting  in  an 


Fig.  3.4a 

No  Jitter  Hatching t 


Fig.  3.4U 


With  Jitter  Matching 
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unreliable  match  (in  the  sense  that  the 
- undistorted  data  would  not  show  a match 
at  this  exact  point).  Although  the  jitter 
is  but  one  element  peak,  this  may  move  the 
match  point  up  or  down  the  framelet  several 
elements  because  of  the  longer  period  of 

the  jitter.  *-  - 1 

There  is  another  problem  which  the  digitizer  suffers  from.  The  first 
element  (that  is  * the  first  output  element  from  the  digitizer  in  each  scan 
line)  has  nothing  to  do  with  the  input  data  (nor,  as  far  as  we  can  tell, 
has  the  first  element  anything  to  do  with  the  j^itter)  . It  is  almost 
always  a very  small  number.  Thus  one  more  element  is  not  available  for 
matching.  (It  would  be  interesting  but  not  very  profitable  to  speculate 
on  the  cause  of  the  first  bad  element.)  - 

In  order  to  illustrate  the  location  of  the  drummarks,  we  need  to  see 
how  the  video  signal  is  presented  to  the  digitizer.  Fig.  3.5  illustrates 
the  form  of  a single  video  scan  line.  The  digitization  rate  is  555,5  kHz. 
With  1105  + 11  ysec  between  drummarks,  this  yield  614  + 6 characters 
between  drummarks.  The  actual  space  between  drummarks  found  by 
the  correction  factor  program,  reported  on  fully  in  the  report  on  Project  B, 
is  626.5  - 9.5  + 1 = 618  characters.  Since  the  distance  between  drummarks 
is  0.100  + 0.001  inches,  the  horizontal  interval  between  characters  can 
be  given  as  (0.100  + 0.001)  -$■  617  inches  = 0.0016207  + 0.00016  inches  = 

(4.12  + .41)  y.  (By  observation  of  the  RESEAU  test  pattern  and  comparison 
with  actual  data,  we  arrive  at  4.105  y as  the  spacing  between  elements  in 
the  scan  line  direction;  this  work  will  be  reported  on  under  Part  III  of  this 
report  on  Project  A.) 


drummarks  


1250 /U  SEC 


Fig.  3.5  Composite  Video  Signal 
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Observation  of  actual  digitized  data  shows  that  within  one 

digital  element.  If  we  take  we  obtain  2C^  - 1250  - (1105  + 11  + 

90+5)  = 1250  - (1195  +_  16)  so  that  « 27.5+8  ys.  At  the  digitization 
rate  of  555.5  kHz,  this  is  between  11  and  20  digital  elements.  Actual 
observation  gives  the  drummarks  centered  at  element  9.5  (on  the  left)  and 
626.5  (on  the  right).  Thus,  either  the  values  given  for  the  video  signal 
are  somewhat  off  or  else  the  digitizer  does  not  digitize  the  whole  line. 

(It  makes  no  difference  in  the  problem  of  joining  the  framelets  which; 
however,  by  examination  of  the  GRE  film,  we  suspect  that  the  values  for  the 
video  signal  are  off,  since  the  drummarks  seem  to  be  too  near  the  edge.) 

4.  Limitations  owing  to  the  Univac  1108 

The  word  size  of  the  1108  is  36  bits,  in  6 6 bit  bytes.  It  is  very 
expensive  to  handle  data  in  any  other  combination  other  than  a multiple  of 
6 bits.  The  byte  size  choosen  for ‘the  L0  project  was  6 bits.  The 
digitized  data  is  packed" 6*  elements  to  a word  and  written  in  records  con- 
sisting of  94  lines  of  106  words  each.  This  means  that,  in  order  to  use 
the  LO  data  as  written  by  the  digitizer,  one  must  allocate  a buffer  area 
in  core  of  nearly  10,000  words  merely  for  temporary  storage  of  a packed 
line.  In  addition,  we  expect  to  need  lines  one  at  a time  on  demand.  If 
the  tape  is  only  read  once  every  94  lines,  at  which  time  10,000  word 
record  is  read,  then  we  may  expect  gross  inefficiency  of  computer  time  in 
those  problems  which  have  a fair  balance  of  reading  tape  and  calculation. 
Indeed,  the  join  problem  is  probably  not  possible  unless  the  information 
is  written  one  line  per  record  because  of  the  limited  core  space,  and  it 
is  certainly  not  practical.  In  order  to  simplify  the  whole  problem,  we 
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decided  (after  several  months  of  struggling  with  the  94  line  records)  to 
write  our  own  special  tapes  1 line  per  record.  This  process  is  carried  out 
by  two  special  programs  which  provide  input  tapes  for  the  algorithm  which 
finds  the  match  between  framelets  and  which  provide  input  tapes  for  the 
join  algorithm.  The  documentation  for  the  first  program  follows;  the 
second  is  documented  in  the  report  for  Project  B. 


COMPUTER  PROGRAM  DOCUMENTATION 
LEFT-RIGHT  EDGE  OF  FRAMELET 
Program  LRE 
Project  A 

By 

Jack  Bryant^ 
and 

R,  L.  Wendt  ;*  " ~ 

■r 

Prepared  by 

Applied  Scientific:  Research,  Inc. 
Houston,  Texas 
Under  Contract  NAS  9-10577 
For 

MAPPING  SCIENCES  DIVISION 
National  Aeronautics*  and  Space  Administration 
Manned  Spacecraft  Center 
Houston,  Texas 
September,  IS 71 
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5.1  INTRODUCTION 

The  problem  of  using  LO  data  as  provided  by  EDITED  tapes  in  the 

solution  of  the  matching  framelets  problem  lies  in  the  highly  inconvenient 

way  the  data  is  spread  out  in  94  line  records*  Since  all  that  is  involved 

in  the  matching  problem  is  the  left  and  right  edges  of  adjacent  framelets, 

the  whole  problem  is  made  much  faster  by  preparing  a preliminary  tape  with 

the  left  and  right  edges  of  the  three  framelets  written  out  by  lines  on 

the  left  and  then  right  edges.  This  program  is  dimensioned  to  handle 

specific  data,  viz,  LO  III,  FR  154  H,  FRMLTS  028,  027,  025,  SURVEYOR- 3 area, 

but  can  be  generalized  in  the  obvious  fashion  ( by- changing  the  number 

* 

2068  ) to  fit  framelets  of  arbitrary  length. 

5.2  PROGRAM  DESCRIPTION 

The  program  initializes  constants  an£  reads  the  Header  from  the  input 
tape.  The  Header  is  written  on  the  output  tape  followed  by  an  end  of  file 
mark.  The  edge  data  is  skipped  over  and  the  data  framelet  is  read.  The 
left  and  right  edges  of  each  line  in  each  record  is  removed  and  stored  in 

C,  When  an  end  of  file  mark  is  read  on  input  the  data  in  C is  printed, 

written  on  output  tape,  reduced  in  tonal  resolution  and  printed.  The 
process  is  repeated  for  each  framelet  and  when  finished  all  tape  units  are 
rewound.  The  general  flow  chart  is  shown  in  5.3: 


I 
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5.3  GENERAL  FLOW  CHART  - LRE 
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5.3  GENERAL  FLOW  CHART  - LRE 
CONCLUDED 
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5.4  DESCRIPTION  OF  PROGRAM  VARIABLES 

JDIM  - The  column  dimension  of  array  C;  also  twice  number  of  words  to 
be  stripped  off  right  and  left  edges  of  the  framelets. 

KDIM  - The  dimension  of  D,  2068  x 8. 

HDER  - Header  array. 

B - Input  array  for  data  tape. 

C - Artay  of  data  of  right  and  left  edges  of  framelet. 

D - Vector  of  equivalenced  to  C. 

NFRMLT  - Number  of  framelets  per  reel  of  tape. 

NCHIT  - Number  of  chits  per  framelet. 

NCOL  - Number  of  words  to  be  stripped  off  .each  edge  of  framelet. 
NCOLPI  - Index  on  C. 

K - Row  counter  on  C 

KK  - Index  used  in'  stripping  off  words  of  framelet, 

KW  - The  number  o'f  rows  in  C to  be  printed,  prettied  and  written  on 
output  tape.---.__ 

5.5  DATA  INPUT  ' • 

Data  tape  Surveyor-3  LO  1 FR  154H  FRMLTS  028,  027,  025;  see  also 
5.7.2  for  detailed  description. 

5.6  DATA  OUTPUT 

Data  tape  used  as  input  by  SKINNY’  algorithm. 

5.7  USAGE  •' 

5.7.1  CARD  INPUT  DATA 


None. 
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5.7.2  TAPE  INPUT  DATA 

Header 

59  words 
Integer 

NTRAN  read  -1  buffer  of  59  words 
EOF 


Notch  * 

150  rows  of  106  words  each 
Integer 

NTRAN  read  - 1 buffer  of  9964  words  and 
1 buffer  of  5936  words 
EOF  ' , 

Digitized  LO  data 

2068  or  more  lines  of  106  words  each 
packed  94  lines  per  record 
Integer 

NTRAN  read  —22(1  buffer  of  9964  words  ) 

EOF 

Edge  Data 

550  rows  of  i06  words  each 
Integer 

NTRAN  read  -5(1  buffer  of  9964  words  ) and 
1 buffer  of  8480  words 
EOF  / 

EOF 

Repeat  until  all  data  exhausted. 

5.7.3  DECK  SETUP 
See  fig.  5,7.3 


5.7.4  RUN  TIME/LINES  OUTPUT 


Time:  Approximately  2 min.  1108  time.  Actual  time  may  depend  on 

delay  in  hanging  tape.  Output:  Approximately  13,000  lines  output. 


5.7.5  ACCURACY/VALIDITY 


Perfect. 


30 


31 


5. 7.6  RESTRICTIONS 

As  written,  the  program  wants  to  have  2068  lines  per  extended  chit 
as  described  above.  This  number  can  easily  be  changed  to  suit  other  forms 
of  input  ( as  it  has  been  for  the  complete  framelet  of  15,690  lines  ). 
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5.8  DETAILED  FLOW  CHART  - LRE  (CONCLUDED) 
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5.9  DESCRIPTION  OF  SUBROUTINE 

5.9.1  PRWT  ( PRINT,  PRETTY  DATA,  WRITE  OUTPUT  TAPE) 

5.9.2  CALLING  SEQUENCE  PRWT  (C,  D,  KW,  JDIM) 

5.9.3  SUBROUTINE  DESCRIPTION 

This  routine  prints  the  data  in  C in  its  original  tonal  resolution 
by  splitting  the  data  in  C into  right  and  left  edges  of  the  framelets. 

The  left  and  right  edges  of  the  framelets  are  written  on  the  output  tape. 
The  tonal  resolution  of  the  data  is  reduced  by  a factor  of  8 via  PRETTY 
and  the  left  and  right  edges  of  the  framelet  are  printed  again. 
Description  of  Variables: 

C,  D,  KW,  IDIM  - Explained  in  LRE. 

NC,  NCP1  - JDIM/ 2 and  JDIM/2  + 1. 

KZ  - The  number  of- words  per  record  written  on  output  tape. 

KZ1  - KZ  4-  1 used  in  addressing  D on  output. 


= 1,  JDIM 


5.9.4  DETAILED  FLOW  CHART  - PRWT  (Continued) 


5.9.4  DETAILED  FLOW  CHART  - PRWT  (CONCLUDED) 


5.9.5  OTHER  SUBROUTINES- 


NTRAN  (UNIVAC  I/O  ROUTINE) 

PRETTY] 

PMAP  | (DOCUMENTED  ELSEWHERE  IN  LO  PROGRAM) 
PREG  ) 
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6.  Detailed  examination  of  the  actual  overlap  - COLUMNS  - in  LO  III, 
FR154H,  FRMLTS  028,  027,  025,  SURVEYOR  3 AREA. 

In  order  to  further  explain  the  small  extent  of  the  actual  overlap, 

we  give  an  example  based  on  actual  test  data.  The  COLUMN  numbers  are  1 

thru  636,  with  1 the  "left"edge.  (Left  when  the  high  resolution  pictures 

are  held  with  the  number  at  the  bottom,  reading  correctly;  we  understand 

that  this  system  is  not  consistent  with  the  sun  position  and.,  that  what 

we  have  is  a mirror  image  of  actual  Lunar  features.  However,  thinking  of 

the  picture  as  being  a matrix  stored  a line-  at  a time,  our  "left"  edge 

does  in  fact  correspond  to  the  column  with  smallest  index.)  Historically, 

the  column  match  between  framelets  was  unknown  to  us  before  solution  of  the 

match  problem,  so  that  this  part  of  the  report  is  out  of  order;  however, 

it  is  important  to  document  the  fact  that  the  LO  data  is  out  of 

specifications  (in  that  there  is  less  than  .specified  overlap  between 

adjacent  framelets),  and  this  will  help  motivate  the  match  algorithm  SKINNY. 

6.1  COLUMN  overlap  found  between  028R  - 027L 

Fig.  6.1.1  following  represents  the  overlap  found  between  02 8R 
(COLUMN  number  618  thru  636)  and  027L  (COLUMN  numbers  1 thru  18) . The 
defective  elements  (not  available  for  matching)  are  indicated  by  a * 
(drummarks)  or  $ (bad  first  element).  As  can  be  noted,  the  overlap 
between  028R  and  207L  is  11  digital  elements. 
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6.2  COLUMN  overlap  found  between  027R  - 025L 

. Fig.  6.2,1  following  represents  the  overlap  found  between  027R 
(COLUMN  numbers  618  thru  636)  and  027L  (COLUMN  numbers  1 thru  18) . As 
can  be  seen,  the  overlap  in  this  match  is  16  digital  elements 

6.3  Average  COLUMN  overlap  found  028R-027-025L. 

The  average  overlap  found  was  13.5  digital  elements.  In  order  to 

corrolate  this  overlap  with  LO  specifications.,  consider  Fig.  6.3.  As 

can  be  seen,  were  the  data  as  specified,  .the  overlap  would  show  the 

drummarks  exactly  meeting.  This  overlap  (not  actually  experienced)  is 

illustrated  in  Fig,  6.3.2.  The  data  actually  Tails  to  meet  specifications 

* 

in  two  ways.  First,  as  mentioned  before,  the  drummarks  are  too  near  the 
edges  of  the  framelet.  (This  is  probably  caused  by  the  scan  line  width 
being  less  than  specified  since  independent  callibration  using  the 
Reseau  flash  pattern  gives  C. 100”  -for  the  drummark  spacing.  We  may 
infer  that  the  width  of- the,  framelet  as  digitized  is  0.1029  ± .0002" 
instead  of  the  specified  0.105".)  Second,  the  film  advance  is  more  than 
specified.  If  we  take  as  0.1029"  the  actual  width  of  a framelet,  then 
there  should  be  0.000162"  per  digital  element,  so  that  0.0029"  18 

digital  elements  should  be  the  overlap  with  a film  advance  of  0,100". 
(Since  the  encountered  average  overlap  ,is  13.5  digital  elements  ++  0.0022", 
we  may  conclude  that  the  film  is  advanced  an  average  of  0.1007"  instead 
of  the  specified  0. 100",  with  a variation  in  our  sample  of  ±.0004".)  These 
two  defects  combine  to  make  the  problem  of  finding  the  overlap  area  nearly 
impossible,  since  there  is  essentially  but  one  COLUMN  in  the  worst  cases 
3with  which  matching  can  be  done. 


45 


Fig.  6.1.1  Column  Overlap  Found  Between  028L  - 027R 
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Fig.  6.3.1  L0  Photo  Read-Out  Specifications. 
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6.4  Analysis  of  Worst  Cases  - COLUMNS 

Fig.  6.4.1  illustrates  possible  problems  which  may  arrise  owing  to  the 
bad  left  edge  and  drummark  areas  killing  off  possible  match  areas.  For 
the  purpose  of  illustration,  we  may  think  of  the  right  edge  as  being  fixed 
and  the  left  edge  as  being  positioned  in  various  places  to  study  the 
interaction.  As  can  be  seen,  not  even  one  left  side  framelet  column  misses 
the  drummark  area  of  the  right  side  framelet.  Also,  the  maximum  size  of  a 
column  area  which  is  consistently (in  all  cases),  (a)  not  in  a drummark 
and,  (b)  not  itself  a drummark  or  bad  left  edge,  is  one.  This  is  the 
reason  for  the  "jumping  around"  of  the  "standard"  ./match  area  we  encounter 
in  SKINNY.  Thus,  we  can  use  COLUMN  2 of  the  right  (lower  numbered) 
framelet  in  the  match  illustrated  by  A,  B,  C,  D,  E,  F and  K,  L,  M,  and 
COLUMN  6 of  the  right  framelet  in  the  match  illustrated  by 
G,  H,  I,  J.  Thus  we  selected  the  following ' COLUMN  MATCH  SCHEME: 

Trial  .overlap  A-F  COLUMN  2 

Trial  overlap  G-J  COLUMN  6 

Trial  overlap  K~M  ' COLUMN  2 

More  details  on  this  proceedure  will  be  given  in  the  documentation  to 


SKINNY. 


618  619  620  621  622  623  624  625  626  627  628  629  630  631  632  633  634  635  636 
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Fig.  6.4.1  A-M  Illustration  of  Likely  Column  Overlap. 
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7 . Detailed  examination  of  the  actual  overlap  - ROWS  - 
in  LO  III,  FR  154  H,  FRMLTS  028,  027,  025,  SURVEYOR  3 AREA. 

* 4 * J 

Nonlinearity  in  the  ROW  direction  (up  and  down)  was  expected; 
our  tests  confirmed  this  nonlinearity* 

7.1  ROW  match,  028  R - 027L. 

Table  7.1.1  illustrate  the  ROW  match  found  between  028R  and  027L. 
Because  of  the  scarcity  of  data  (details)  found  in  the  overlap,  very 
few  match  points  were  found  by  SKINNY.  As  can  be  seen,  the  deviation 
is  variable  with  a peak  of  about  23  to  32,;  or  a difference  of  9 rows 
over  300. 

7.2  ROW  match,  02 7R  - 025L 

Table. 7.2.1  illustrates  the  ROW  match  found  between  027R  and  025L. 
One  less  match  point  was  found  by  SKINNY.  The  nonlinearity  here  was 
not  found  to  be  as  great  as  in  028R  - 027L,  but  was  still  substantial 
with  a greater  peak  (11” rows)  variation  (but  over  600  rows) . 

a 

7.3  Relative  position  of  framelets 

Fig.  7.31  illustrates  the  relative  positions  we  found  of  framelets 
028,  027  and  025  as  we  are  viewing  them.  We  shall  return  to  this  later 


in  the  JOIN  problem. 


028  R 

027  L 

DEVIATION 

ROW 
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NUMBER 
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29 
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Table  7.1.1  ROW  Match,  028R  - 027L 


027  R 

025  L 
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Table  7.2.1,  ROW  Match,  027R  - 025L 
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8.  DOCUMENTATION  OF  SKINNY 
8.1  INTRODUCTION 

The  difficulties  inherent  in  the  LO  data  outlined  in  §§  1-7  of  the 
report  on  Project  A have  resulted  in  the  algorithm  SKINNY  which  is 
documented  here.  (SKINNY  was  so  named  because  initial  algorithms  worked 
over  an  approximately  square  area  which  we  felt  we  could  expect  to  be  in 
the  overlap  on  the  basis  of  LO  specf ications;  when  the  actual  overlap  was 
finally  determined,  we  renamed  the  algorithm  SKINNY  because  it  was).  The 
basic  idea  is  to  find  the  match  between  adjacent  ,framelets  by  comparing 
(using  some  metric  or  other  criterion)  a verticle  block  of  numbers  in 
COLUMN  2 or  COLUMN  6 centered  at  a certain  point  in  the  left  edge  of  the 
right  framelet  with  a "floating"  block  on  the  right  edge  of  the  left 
framelet.  The  main  and  overwhelming  difficulty  with  this  is  that,  in  the 
data  we  have  to  work  with,  the  overlap  region  is  nearly  void  of  interest, 

f v 

so  much  so,  in  fact,  that  a human  operator  has  some  difficulty  matching  the 
framelets  even  with  the  many  other  clues  he  may  use  (for  example  to 
ignore  the  drummarks  or  to  look  for  large  features  (e.g.  craters)  which 
branch  over  two  or  more  framelets) . Because  of  the  systematic  noise 
(mainly  drum  signature  and  jitter) , we  must  first  detect  an  area  where 
the  strength  of  the  "signal"'  (i.e.  actual  Lunar  features)  is  at  least 
comparable  to  the  noise. 

The  remainder  of  this  documentation  deals  with  the  actual  solution  of 
the  problem  of  matching  framelets  of  abfcut  three  chit  size l The  problems 
of  matching  whole  framelets,  and  discussion  of  possible  alternate  solutions 
to  the  problem  will  be  deferred  to  later  sections. 
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8.2  SKINNY  ON  2068 

The  configuration  of  the  three  framelets  we  were  given  has  Been  noted 
in  § § 6 and  7 above.  Since  a priori  one  has  no  knowledge  of  the  relative 
placement  of  the  rows,  the  algorithm  starts  by  trying  to  find  a match 
near  the  center  of  the  framelets.  The  success  of  the  algorithm  depends 
critically  on  the  correct  starting  match  since  the  row  nonlinearity  is  not 
great  and  we  do  not  look  over  as  large  an  area  for-  match  points  after  the 
start. 

One  of  the  basic  problems in  matching  the  Surveyor-3  data  is  that  the 
digitized  data  constitutes  less  than,  a framelet.  This  means,as  has  been 
noted  in  §7^  that  the  sub-f ramelets  may  be  offset  with  respect  to  the 
first  rows  of  the  sub-framelets . This  problem  is  overcome  by  attempting 
to  find  a match  at  nr  near  the  center  of  the  sub-framelets.  Subroutine 
LKFPv  is  used  to  determine  where  an  ’'interesting”  area  is  near  the  center. 
Refer  to  Fig.  8.2.1.  The  fixed  area  S receives  data  from  the  original 
array  C over  IDIM  by  JDIM  rows  and  columns  centered  at  the  point  described 
by  the  interesting  area.  The  -array  F over  which  FM  will  vary  receives 
data  over  an  array  twice  as  large  as  S with  respect  to  the  rows  and  1 1/2 
times  as  large  as  S with  respect  to  the  columns.  This  allows  for  a large 
discrepancy  in  the  rows  between  two  subframelets  and  helps  to  insure  an 
initial  match  without  which  the  algorithm  cannot  proceed. 

The  fixed  array  S has  a sub  array  SM  which  can  vary  over  columns  2 and 
6.  The  moving  array  FM  moves  over  all  columns  of  the  overlap  region  except 
those  columns  which  may  contain  drummarks . As  the  arrays  vary  the  norm 
is  computed,  all  norms,  row  numbers,  column  numbers  are  written  on  the 
drum  and  the  strict  minimum  is  selected.  The  row  and  column  -number  of  the 
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THE  CENTER  OF  THE  FLOATING  ARRAY 
FM  BELONGS  TO  THE  SHADED  REGION 
F ON  EITHER  SIDE  OF  THE  ' 
DRUMMARKS . 


RIGHT  FRAMELET 


12345689  10  11 


SM  SM 


DRUMMARKS 


BAD 

FIRST 

ELEMENT 


Fig.  8.2.1.  Overlap  of  Two  Adjacent  Framelets,  Illustrating  F,  SM 
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strict  minimum  is  selected.  The  row  and  column  number  of  the  moving  array 
is  saved  and  the  column  of  the  match  for  the  array  SM.  The  candidates  for 
the  minimum -are  saved  in  BUF  and  printed  so  the  user  can  observe  the  order 
of  magnitude  of  the  norm  at  the  minimum. 

The  drum  is  rewound,  the  norms,  rows  and  columns  read  and  those  which 
are  within  TOL  of  the  strict  minimum  are  written  on  the  drum.  In  the  event 
that  there  is  more  than  one  point  for  which  the  norm  is  within  TOL  of  the 
strict  minimum  then  Subroutine  BACKUP  is  called  in  an  attempt  to  find  the 
best  match  of  those  candidates.  Otherwise, . Subroutine  FMPT  is  called  to 
find  match  points  for  the  rest  of  the  data.  The  coordinates  of  the  match 
points  are  printed  and  when  this  is  finished  the  algorithm  switches  to  the 
next  two  edges  of  adjacent  sub-framelets  and  continues  the  process. 
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8.3  GENERAL  FLOW  CHART 

The  general  flow  chart  for  the  main  program  follows.  Documentation  of 
the  subroutines  LKFR,  NORM,  BACKUP,  FMPT,  and  PRNT  is  included  in  §8.5.  The 
variables  and  arrays  F,  S,  SM,  FM,  BUF,  I,  J,  ROW,  COL,  NORM,  II,  12,  J1  and 
J2  are  given  detailed  descriptions  in  §8.5.2-. 


Fig.  SKINNY  8.3.1.  GENERAL  FLOW  CHART,  SKINNY 
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Fig.  8.3.1.  GENERAL  FLOW  CHART,  SKINNY,  CONTINUED 


o * 
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Fig.  8.3.1.  GENERAL  FLOW  CHART.,  SKINNY,  CONTINUED 
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Fig.  8.3.1.  GENERAL  FLOW  CHART,  SKINNY,  CONCLUDED 
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8.4  USAGE 

8.4.1.  INPUT  DESCRIPTION 

8. 4. 1.1.  Card  input  . 

Data  cards  punched  by  program  CAS  3 (documented  with  PROJECT  B)  are 
read'in  FORMAT  6E13.8.  This  data  constitutes  the  smoothed  correction 
factors  CS. 

8.4. 1.2.  Tape  input 

For  the  exact  program  under  discussion  here,  the  tape  format  is 
illustrated  in  Fig.  8. 4. 1.2.1.  The  data  records  are  4 words  x 2068  words 
in  length.  There  are  twice  as  many  data  records  as  framelets  to  be 
matched  plus  a header  for  each  framelet.  The  pate  is  made  by' program 
LRE  (see  §5). 


8.4.2.  PROGRAM  RUN  PREPARTAT I ON 
8. 4. 2.1  Card  deck  setup. 

For  the  card  deck  setup,  see  Fig.  8. 4. 2. 1.1.  This  card  deck  is  also 
on  PCF  tape  #8779  currently  in  the  name  R.  L.  Wendt. 

8. 4. 2. 2.  Required  I/O  Devices  and  Special  Hardward 

. The  program  uses  the  standard  FORTRAN  input  for  dsta  cards.  The  data 
tape  (Unit  A)  is  read  using  NTRAN.  The  program  also  requires  the  use  of 
two  FH432  drum  files.  No  use  is  made  of  FSTRN.  NTRAN  read/write 
statements  are  used  to  handle  the  FH432  drum  files. 

8. 4. 2. 3 Subroutine  requirements 

The  program  requires  use  of  the  following  subroutines: 

LKFR 

UNPSTR 

NORM 

BACKUP 

# 

FMPT 


PRNT 
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In  addition, 

some  of  the  subroutines  of  SKINNY  have  subroutines 

as  follows: 

UNPSTR 

UNPACK 

LKFR 

UNPACK,  LC-SM 

FMPT 

LKFR,  UNPSTR,  NORM 

BACKUP  ' 

• UNPSTR,  NORM 

The  documentation  of  the  subroutines  is  included  in  §8.5/  .. 

8.4.3  OUTPUT  DESCRIPTION 

8.4. 3.1  Printed  output 

The  program  first  prints  out  the  correction  factors.  Then  it  lists 
the  value  of  the  norm  over  the  first  attempt  to  find  a match  (near  the 
center  of  the  framelet) . There  follow  listings  of  the  values  of  the  norm 
at  other  match  locations,  and  then  a complete  listing  o£  all  match 
points  found.  The  process  is  repeated  until  the  number  of  framelets  is 
exhausted.  The  program  produces  about  60  pages  of  output.  There  is 
no  other  output. 

8.4.4  EXECUTION  CHARACTERISTICS 

8. 4. 4. 1 Restrictions 

The  program  documented  here  is  restricted  by  the  size  of  the  1108 
core  to  sub-f ramelets  with  less  than  about  3000  rows.  The  program  has 
been  generalized  to  take  care  of  arbitrary  framelets  with  an  arbitrary 
number  of  rows.  The  main  feature  of  the  generalization  is  to  simply 
read  in  batches  of  (about)  1500  words  and  repeatedly  use  the  present 


algorithm. 
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The  program  is  already  set  up  to  handle  an  arbritray  number  of 
sub-framelets. 

The  program  requires  about  13,000g  core  locations  for  code  and 

74,000o  core  locations  for  storage,  leaving  40,000o  locations  free.  (The 
o o 

system  uses  14,000o  locations). 

o 

8.4.4. 2 Runtime 

The  run  time  is  somewhat  variable,  probably  owing  to  the  problems 
of  hanging  tapes.  However,  a good  average  seems  to  be  about  1 min.  25 
seconds  per  two  framelets  of  2068  rows  matched,  so  that  an  approximate 
9 chit  area  will  require  about  2 min  50  seconds  to  locate  the  match  points. 

8. 4.4.4  Accuracy 

The  program  locates  match  points  with  sufficient  accuracy  to  enable 
joining  of  large  areas  by  the  program  JOIN.  Sometimes,  slight  adjustments 
(the  magnitude  of  which  can  be  found  by  laying  the  printed,  prettyed 
output  of  LRE  down  on  the  floor  (as  down  a hallway)  and  looking  at  the 
matchpoints  found)  will  result  in  a slight  (3-4  element)  improvement. 

This  problem  arises  when  there  is  simply  no  detail  at  all  in  the  overlap 
which  is  accessable  by  SKINNY..  However,  the  use  of  SKINNY  is  indicated 
even  in  this  situation  (where  there  is  very  little  data  in  the  overlap 
and  the  match  found  may  not  be  perfect)  since  it  finds  a very  close 
candidate  which  is  easily  adjusted. 
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8.5.1 

Detailed  flow  chart. 

8.5.2 

Symbol  definition  table 

8.5.3 

Subroutine  documentation 

8.5. 3.1 

LKFR 

8. 5. 3. 2 

LGSM 

8. 5. 3. 3 

NORM  . 

8.5. 3.4 

UNPSTR 

8. 5. 3. 5 

BACKUP 

8.5. 3.6 

FMPT 

8. 5. 3. 7 

PRNT 

8. 5. 3. 8 

UNPACK 

8.5.4  Example  Listing 
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FDIM  = 331 
CDIM  = 2068 
MNI  = 70 
MN2  = 10 
MN3  = 406 
CC  = CDIM/ 2 
CF  = FDIM/ 2 
IDIM  =71 
JDIM  = 1 
T = IDIM*JDFM 
DI  = IDIM/ 2 
DJ  = JDIM/ 2 


NTRAN  ) 

1,8,2  / 


PRECEDING  PAGE  BLANK  NOT  FILMED 


NTRAN  \ 

1,2, 8272, D,IR/ 


( NTRAN 
\ 1,8, 


A 


o 

Fig.  8.5.1  DETAILED  FLOW  CHART  - SKINNY 


ROWIS  = ROW-DI 
ROWFS  = ROW+DI 
IUF  = 0 


CALL 
UNPSTR 

VC, A,F,S, CS ,ROWIS 
ROWFS 


ROWIF  = ROW-MNI-DI 
ROWFF  = ROW+MNI+DI 
IUF  = 1 


/ 


CALL 
UNPSTR 
\ C,A,F,S,CS, 
\ ROWIF, ROWFF 


COUNT  = 0 
SRM  = 1.E28 
REWIND  4 


Fig.  8.5.1  Continued 


74 


75 


11  = (ROWFF  - ROWIF) /2-MN1/2-DI+1 

12  = (ROWFF  - ROWIF) /2+MN1/2+DI 


ROW 3 = I-DI 
ROW4  = I+DI 
COL 3 = J-DJ 
COL4  = J+DJ 


Fig.  8.5.1  Continued 


Fig,  8.5.1  Continued  . 
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A - An  array  used  in  unpacking  data. 

BUF  - An  array  used  to  store  values  of  the  norm  of  FM  - SM. 

C - An  array  in  which  the  first  4 and  last  4 words  of  adjacent  framelets 

are  stored.  The  data  used  by  the  match  filter  is  contained  in  C. 

CC  - An  integer  which  indicates  the  center  row  index  of  C. 

CDIM  - An  integer,  the  value  being  the  row  dimension  of  C. 

CF  - An  integer,  the  value  being  the  row  dimension  of  F. 

/ 

CN  - An  integer;  the  column  index  of  the  minimum  norm  at  the  center  of  C. 

COL  - An  integer;  the  column  index  of  the  fixed  matrix  S,  which  takes  on 

values  2 or  6.  Used  in  attempting  to  get  the  minimum  norm  of  FM  - SM. 

C0L1  - An  integer,  the  value  describing  the  initial  column  of  the  S matrix. 

C0L2  - An  integer,  the  value  describing  the  final  column  of  the  S matrix. 

C0L3  - An  integer,  the  value  describing  the  initial  column  of  the  F matrix. 

C0L4  - An  integer,  the  value  describing  the  final  column  of  the  F matrix. 

COUNT  - An  integer  which  determines  the  number  of  match  points  computed  at 
the  center  of  C and  the  number  of  norms  written. on  the  drum. 

CS  - An  array  of  smoothed  correction  factors. 

Table  8.5.2  SYMBOL  DEFINITION  TABLE  - SKINNY 
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D - A vector  equivalenced  to  the  array  C. 

DI  - An  integer,  the  row  dimension  of  the  match  filter  divided  by  2. 

DJ  - An  integer,  the  column  dimension  of  the  match  filter  divided  by  2. 

DR  - An  integer  (described  in  routine  FMPT), 

F - An  array  of  data  points  which  varies  over  a prescribed  area  in  the 
right  overlap  area  of  the  framelet  on  the  left  of  the  two  framelets 
being  matched. 

FDIM  - An  integer;  the  row  dimension  of  F. 

FM  - A submatrix  of  F of  dimensions  of  the  match  filter.  Used  in 
calculating  the  norm  of  the  match. 

ICM  - The  column  index  of  the  fixed  array  where  the  norm  is  minimum  at 
the  center  of  C. 

ICOORD  - An  array  in  which  the  values  of  the  indices  of  the  fixed  and 
moving  arrays  at  which  the  minimum  norm  occurs. 

IDIM  - The  row  dimension  of  the  match  filter. 

IER  - A flag  which  determines  if  an  error  has  occured  in  one  of  the 

o 

subroutines. 

IFB  - Flag  (described  in  FMPT) 

IND  - A difference  of  indices  (described  in  FMPT) 


Table  8.5.2  SYMBOL  DEFINITION  TABLE  - SKINNY  — CONTINUED 
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INDX 

IR 

IUF 

IZ 

11,12 

JDIM 

ti  t r\ 

KK,RND 

KOUNT 

KZ 


An  index  counter  (described  in  FMPT) 

The  row  index  of- the  center  of  the  moving  array  at  the  match  points 
relative  to  array  C. 

A flag  used  to  determine  which  array,  F or  S,  will  receive 
unpacked  data. 

An  index  (described  in  FMPT) 

The  initial  and  final  rows  of  the  array  F-  over  which  the  center  of 
FM  will  vary. 

The  column  dimension  of  the  match  filter. 

The  initial  and  final  columns  of  the  array  F over  which  the  center 
of  FM  will  vary.  J1,J2  are  dependent  upon  the  columns  of  the 
S array. 

Two  indices  which  determine  the  limits  of  BUF  which  contains  the 
norms  of  the  match  points. 

The  number  of  norms  that  are  within  TOL  of  the  minimum  and  that 
are  written  on  the  drum. 

The  number  of  words  in  a record  of  tape  which  contains  4 words  for 
2068  row.  2068  is  the  number  of  rows  in  the  surveyor  3 sub- 
framelets. 


Table  8.5.2  SYMBOL  DEFINITION  TABLE  - SKINNY  — CONTINUED 

3 ' 
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KZ1  - KZ+1,  the  value  of  the  index  starting  at  which  the  next  record  from 
the  tape  is  read  into  D. 

MN1  - The  number  of  rows  over  which  the  center  of  the  array  FM  will  vary 
in  attempting  to  find  a match  at  the  center  of  C. 

MN2  - Twice  this  number  is  the  number  of  rows  over  which  the  center  of 
the  array  FM  will  vary  in  attempting  to  find  other  match  points 
after  the  center  of  the  two* sub-framelets  have  been  matched. 

MN3  - This  number  is  used  by  subroutine  LKFR  in  finding  a high  contrast 
area  for  the  match  algorithm  to  start  near  the  center  of  C. 

NROW  - Used  by  FMPT  to  find  another  high  contrast  area  after  a previous 
match  has  been  determined. 

RM  - The  norm  of  FM  - SM  as  FM  varies  over  some  prescribed  portion  of  F. 

RN  - The  row  number  of  the  match  point  at  or  near  the  center  of  C where 
the  norm  is  minimum. 

ROW  - The  row  number  of  the  fixed  array  S where  LKFR  has  determined  an 
interesting  area  exists. 

ROWIF  - The  initial  and = final  rows  of  F which  are  unpacked  to  provide  data 
ROWFF  „ 

for  the  match  algorithm. 

• o 

ROWIS  - The  initial  and  final  rows  of  S which  are  unpacked  to  provide 
ROWFS 

data  for  the  match  algorithm. 


Table  8.5.2  SYMBOL  DEFINITION  TABLE  - SKINNY  — CONTINUED 
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R0W1  - Describes  the  row  limits  of  data  of  S read  into  SM. 

R0W2 

R0W3  - Describes  the  row  limits  of  data  of  F read  into  FM, 

R0W4 

S - The  fixed  matrix  of  data  points  in  the  left  overlap  area  of  the 
framelet  on  the  right  of  the  two  framelets  being  matched, 

SM  - A submatrix  of  S of  dimensions  of  the  match  filter.  Used  in 
calculating  the  norm  of  the  match. 

SRM  - The  minimum  of  the  norms  i.e.  the  norm  of  the  match  point. 

SSRM  - An  array  which  contains  the  values  of  SRM  for  each  match  point  found. 

T - The  product  of  the  dimensions  of  the  match  filter.  Used  in 
calculating  the  norm. 

TOL  - Used  in  determining  how  many  points  are  candidates  for  the  match. 

TRM  - Norm  plus  the  BACKUP  norm  (described  in  BACKUP). 


Table  8.5.2  SYMBOL  DEFINITION  TABLE  - SKINNY  ~ (CONCLUDED) 
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8. 5. 3.1  Description  of  subroutine  LKFR 


IDENTIFICATION 

Name 

— LKFR 

Author/Date 

--  R.L.  Wendt/ June  1970 

Organization 

— ASR 

Machine  Identification 

— UNIVAC  1108 

Source  Language 

— FORTRAN  V 

PURPOSE 

This  program  uses  a variable  threshold  pattern  recognition  scheme  to 
locate  areas  in  which  there  are  some  features  of  relatively  more  interest 

o 

than  in  nearly  areas,  the  purpose  being  to  give  SKINNY  an  area  containing 
the  most  possible  detail  to  aid  the  matching  process. 

USAGE 

Calling  sequence: 

• CALL  LKFR  (C,  NS,  NF,  NL,  ISP) 

The  calling  variables  are  described  in  Table  8.5. 3-1.1 
(SYMBOL  DEFINITION  TABLE), 
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C - The  array  of  data. 

MTX  - An  array  containing  moon  scene  data  unpacked  from  columns  2 
and  6 in  the  overlap  region  of  the  fixed  array  S. 

IDUM  - A dummy  array  used  to  fill  out  the  calling  sequence  of  UNPACK. 

I0UT1. - Two  vectors,  one  for  column  2 and  6 which  are  set  to  1 or  0 
I OUT  2 •- 

depending  on  whether  the  data  is  simultaneously  greater  than 

LARGE  or  less  than  SMALL  in  each  case. 

NS,NF  ••  Two  row  numbers  over  which  an  interesting  area  is  to  be  found. 

NL  - IDIM,  the  number  provides  the  number  of  rows  over  which  a certain 
product  is  to  be  maximized. 

ISP  - The  row  number  of  an  interesting  area. 

LARGE, SMALL  - Two  integers  which  represent  values  for  which  20%  of  the  data 
is  greater  than  and  less  than. 

FK,SK  - The  sum  over  NL  rows  of  I0UT1,  I0UT2. 

KS  - The  product  of  FK  and  SK. 

MAXKS  --  The  maximum  value  of  KS. 


Table  8.5. 3. 1.1. 


SYMBOL  DEFINITION  TABLE,  LKFR. 
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METHOD: 

This  subroutine  finds  a high  contrast  area  in  the  data  of  the  overlap 
region  of  the  framelet  on  the  right  of  the  two  being  matched."'  Columns  two 
and  six  of  the  data  are  unpacked  and  if  the  elements  in  columns  two  and  six 
are  simultaneously  larger  than  some  number  termed  LARGE  (or  simultaneously 
smaller  than  some  number  termed  SMALL) , then  a matrix  for  LARGE  (respectively 
SMALL)  is  set  to  1,  otherwise  to  0.  The  area  deemed  "interesting"  is  that 
area  for  which  the  product  of  the  sum  over  IDIM  rows,  the  dimension  of  the 
match  filter  of  the  elements  in  the  two  arrays  is  maximal. 

The  subroutine  is  provided  with  two  row  numbers  NS, NF 'over  which  the 
routine  is  to  find  the  most  "interesting"  area.  The  variables  NS,NF  do  not 
have  to  be  ordered  in  magnitude  in  the  calling  sequence  of  LKFR.  The 
variables  NS,NF  only  have  to  represent  two  row  numbers  over  which  the  routine 
is  to  look  for  an  "interesting"  area. 

SUBROUTINE  REQUIREMENTS : 

UNPACK 

LGSM 

DETAILED  FLOW  CHART: 


See  Fig.  8.5. 3. 1.2 
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Fig.  8. 5. 3. 1.2  DETAILED  FLOW  CHART  - LKFR 
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’ Fig.  8.5. 3.1.2  DETAILED  FLOW  CHART  - LKFR  — CONCLUDED 
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8.5. 3. 2 Documentation  of  subroutine  LGSM 
IDENTIFICATION 


Name 

— ' LKFR 

Author /Date 

— R.L.  Wendt/June  1970 

Organization 

— ASR 

Machine  Identification 

— UNIVAC  1108 

Source  Language 

— FORTRAN  V 

PURPOSE/METHOD 

• 

This  routine  provides  the  numbers  LARGE  and  SMALL  for  LKFR.  SMALL 
is  defined  to  be  the  number  of  elements  in  array  MTX  which  are  greater 
than  or  equal  to  20%  of  the  difference  between  the  numbers  NF-NS,  which 
are  the  rows  over  which  an  interesting  area  is  sought.  The  number  large 
is  defined  similarly  except  the  counting  of  the  numbers  begins  with  63 
the  largest  of  all  possible  values  an  element  in  the  data  can  have. 

This  process  provides  a variable  threshold  for  the  pattern 
recognition  process  in  LKFR. 

USAGE 

Calling  sequence: 

CALL  LGSM  (MTX,  NS,  NF,  LARGE,  SMALL) 

DESCRIPTION  OF  VARIABLES 

TFP  - Two  fifths  of  the  difference  between  NF,  NS. 

NTEMP  - An  integer  which  counts  the  number  of  data  points  which 
have  value  equal  to  an  index  starting  at  1 for  SMALL 


and  63  for  LARGE. 
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DETAILED  FLOW  CHART 

See  Fig.  8. 5. 3.2.1. 


Fig 


8. 5. 3. 2.1  DETAILED  FLOW  CHART  - LGSM  (Continued) 
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8. 5. 3. 3 Description  of  subroutine  NORM 
IDENTIFICATION 

Name  — NORM 

Author/Date  — R.L.  Wendt/June  1970 

Organization  — ASR 

Machine  Identification  — UNIVAC  1108 

Source  Language  — FORTRAN  V - ... 

PURPOSE/METHOD 

This  subroutine  calculates  the  norm  of  FM-SM  given  some  submatrix 
of  F defined  by  R0W3,  R0W4,  C0L3,  C0L4.  The  norm  used  is  a constant 
times  the  Euclidean  2 norm.  The  constant  is  essentially  used  to  give  the 
numbers  an  order  of  magnitude  which  makes  the  print  of  the  norms  easier 
to  read  i.e.  values  about  .10-. 50  region. 

USAGE 

Calling  sequence: 

CALL  NORM  (R0W3  , R0W4,  C0L3,  C0L4,  F,  FM,  SM,  T,  IDIM,  JDIM,  RM) 

The  calling  variables  are  described  in  Table  8.5.2. 

In  addition  the  following  new  variable  is  used  by  NORM: 

SUM  2 The  square  root  of  the  sum  of  the  squares  of  the  difference 

between  the  elements  of  FM  and  SM  divided  by  the  product  of  the 
row  and  column  dimension,  i.e.  a constant  times  f|  | | 2 . 

DETAILED  FLOW  CHART 


See  Fig.  8.5. 3.3.1 
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8.5. 3.4  Documentation  of  UNPSTR 


IDENTIFICATION: 

Name 

—UNPSTR 

Author/Date 

— R.L.  Wendt/June  1970 

Organization 

— ASR 

Machine  Identification 

— UNIVAC  1108 

Source  Language 

—FORTRAN  V 

PURPOSE/METHOD 


This  routine  unpacks  and  stores  data  from  the  array  C into  the  arrays  . 

F or  S depending  on  the  value  of  IUF.  The  smoothed  or  unsmoothed  corrections 
factors  can  be  applied  at  this  time.  Array  C is  for  Surveyor-3  2068  rows 
oy  o columns « me  due a for  tne  frame lei  on  the  left  is  in  the  1st  four 
columns  and  the  data  for  the  framelet  on  the  right  is  in  the  last  four 
columns.  In  selecting  the  correction  factors  the  arrangement  of  the  data 
in  C has  to  be  remembered.  The  first  2 words  of  the  last  4 words  are 
unpacked  for  S since  the  match  filter  canft  be  very  wide  because  of  the 
drummarks.  The  last  3 words  of  the  first  4 words  are  unpacked  for  F 
since  the  overlap  is  well  within  these  limits.  The  data  is  placed  in  F 
and  S left  justified  with  respect  to  the  columns. 

If  unsmoothed  correction  factors  are  used,  the  reciprocal  should 
serve  as  multiplicative  factor.  If  smoothed  and  normalized  correction 
factors  are  used,  these  should  serve  as  multiplicative  factors. 


USAGE 

Calling  sequence 

CALL  UNPSTR  (C,  A,  F,  S,  CS , R0W1,  R0W2) 
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DESCRIPTION  OF  VARIABLES: 

C - The  array  of  data  of  the  overlap  region  of  both  sub-framelets. 

A - An  array  used  to  unpack  data. 

F - The  moving  array  located  in  the  left  framelet  of  the  two  being  matched. 

S - The  fixed  array  located  in  the  right  framelet  of  the  two  being  matched. 

CS  - An  array  of  correction  factors. 

R0W1  - The  first  row  to  be  unpacked  for  either  F or  S. 

R0W2  - The  final  row  to  be  unpacked  for  either  F or  S. 

IUF  - A flag  which  determines  which  array  F or  S will  receive  unpacked  data. 

DETAILED  FLOW  CHART: 

See  Fig.  8. 5. 3. 4.1. 

SUBROUTINE  REQUIREMENTS: 


UNPACK 


8. 5. 3. 5.  Description  of  subroutine  BACKUP 

IDENTIFICATION: 

Name 

—BACKUP  ' . 

Author/Date 

— R.L.  Wendt/June  1970 

Organization 

— ASR 

Machine  Identification 

— UNIVAC  1108 

Source  Language 

—FORTRAN  V 

PURPOSE /METHOD: 

. • 

This  routine  provides  a means  of  selecting  a minimum  of  the  match 
points  when  several  points  have  been  found  to  be  within  TOL  of  the  strict 
minimum  at  or  near  the  center. 

The  basic  idea  is  to  "back  up”  the  fixed  array  so  its  last  row 
coincides  with  its  original  first  row  which  amounts  to  moving  it  IDIM 
rows,  the  row  dimension  of  the  match  filter.  The  candidates  for  the 
minimum  i.e.  the  row,  column  and  norm  are  read  from  the  drum,  a sub 
array  is  unpacked  and  stored  from  the  original  data,  a new  norm  is 
calculated,  the  sum  of  the  original  norm  and  the  norm  from  "backing  up" 
is  written  on  the  drum.  When  this  process  is  completed  the  sum  of  the 
norms  are  read  from  the  drum  and  compared  against  the  new  strict  minimum. 
If  there  are  any  candidates,  the  minimum  is  determined  not  unique  and 
the  process  is  terminated.  If  this  is  not  the  -case  a test  is  made  to 
determine  if  the  new  strict  minimum  occurred  on  any  edge.  If  so  again 
the  process  is  terminated.  A check  is  made  to  determine  when  the  strict 
minimum  is  read  from  the  drum.  This  is  not  ruled  a case  of  when  *the 
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minimum  is  not  unique. 

USAGE : 

Calling  sequence: 

CALL  BACKUP  (C,  IER) 

DESCRIPTION  OF  VARIABLES: 

The  variables  used  in  BACKUP  are  the  same  as  those  used  in  SKINNY 
with  the  possible  exception  of  TRM.  See  Table  8.5.2.,  plus: 

TRM  - The  norm  of  FM-SM.  The  sum  of  the  norm  achieved  by  SKINNY  and  the 
norm  obtained  when  the  routine  moved  the  candidate  for  the  minimum. 
Minimization  is  attempted  over  the  sum  of  the  original  norm  from 
SKINNY  and  the  new  norm  from  BACKUP. 

IER  - An  error  flag  set  to  1 if  certain  conditions  are  met  in  BACKUP; 

i.e.,  the  minimum  occurred  on  any  edge  of  the  region  under  consideration. 

SUBROUTINE  REQUIREMENTS : 

NORM,  UNPSTR 

GENERAL  FLOW  CHART : 

See  Fig.  8.5. 3.5.1. 

o 

DETAILED  FLOW  CHART: 


See  Fig.  8. 5. 3. 5. 2. 


5 Fig.  8.5. 3.5.1 


GENERAL  FLOW  CHART  - BACKUP 


Fig.  8. 5. 3. 5. 2 DETAILED  FLOW  CHART  - BACKUP 
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5 Fig.  8. 5. 3. 5. 2 DETAILED  FLOW  CHART  - BACKUP  --  CONTINUED 
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Fig.  8. 5. 3. 5. 2 DETAILED  FLOW  CHART  - BACKUP  --  CONTINUED 
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Fig.  8. 5. 3. 5. 2.  DETAILED  FLOW  CHART  - BACKUP  — CONTINUED 


Fig.  8.5. 3.5.2  DETAILED  FLOW  CHART  - BACKUP  — CONCLUDED 
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8.5. 3. 6 Description  of  subroutine  FMPT 

' . 

IDENTIFICATION: 

Name 

— FMPT 

Author/Date 

— R.L.  Wendt/June  1970 

Organization 

— ASR 

Machine  Identification 

— 1 UNIVAC  1108 

Source  Language 

—FORTRAN  V 

PURPOSE/METHOD: 

This  routine  finds  match  points  after  the  initial  match  has  been 
found  at  or  near  the  "center"  of  the  subframelets.  The  basic  idea  is  to 
save  the  coordinates  of  the  "center"  match,  select  another  interesting 
area  via  LKFK,  unpack  the  data  for  S and  F based  on  the  interesting  area 
row  number  for  S and  the  difference  of  the  row  number  for  S and  the  differ- 
ential from  the  previous  match  for  F.  The  minimum  column  number  for  S 
at  the  "center"  is  saved.  The  routine  begins  by  decrementing  the  row 
numbers,  calculating  the  norms  and  saving  the  coordinates  of  the  minimum. 
The  process  of  decrementing  the  row  numbers  is  continued  until  there  is 
insufficient  data  to  continue.  The  coordinate  of  the  minimum  column 
number  at  center  is  restored,  the  differential  in  the  row  numbers  is 
restored  and  the  algorithm  increments  the  row  numbers  based  again  on  row 
numbers  supplied  by  LKFR.  The  usual  process. of  unpacking  and  storing 
data,  calculating  the  norm  is  repeated  and  the  minimum  selected.  The 
process  continues  until  there  is  insufficient  data  to  continue. 

The  routine  in  operation  is  very  similar  to  SKINNY  in  selecting 
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a minimum  norm,  but  the  array  FM  varies  over  a smaller  area  because  it  is 
assumed  that  the  non-linearity  in  the  film  can  be  accounted  for  by  varying 
FM  over  IDIM+10  rows.  As  the  process  is  in  operation  the  minimum  row, 
column  and  norms  are  saved  for  the  fixed  and  moving  matrices.  The  usual 
check  is  made  to  determine  if  the  minimum  is  on  any  edge  or  if.  the 
minimum  is  not  unique/  In  the  first  case  the  process  terminates  and  in 
the  latter  proceeds.  * 

The  algorithm  also  has  a feature  which  allows  the  moving  array  F to 
vary  its  column  center  slightly  to  account  for  mild  non-linearities  in 
the  columns  of  the  match  of  FM  and  also  to  keep  the  minimum  off  any  edge. 

The  process  of  incrementing  or  decrementing  the  row  number  is 
accomplished  via  LKFR  which  seeks  an  "interesting11  area  to  match.  Because 
of  this  feature  the  difference  between  match  points  is  not  likely  to  be 
linear  nor  is  the  number  of  match  points  likely  to  remain  fixed  for 
various  sub-framelets.  The  maximum  number  of  match  points  can  be  determined 
by  the  setting  of  MN3.  The  dimensions  of  the  arrays  ICOORD  and  SSRM  which 
contain  coordinates  of  match  points  and  norms  has  to  be  increased  if  more 
match  points  are  desired  by  decreasing  MN3. 

USAGE : 

Calling  sequence 
CALL  FMPT  (C,  IER) 

DESCRIPTION  OF  VARIABLES: 


The  variables  in  FMPT  are  generally  the  same  as  used  in  SKINNY. 
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DR  - The  difference  between  the  row  number  of  S and  F where  the  minimum 
at  or  near  the  center  of  the  framelets  occurred. 

INDX  - An  index  which  takes  on  values  that  insure  that  the  coordinates  and 
norms  of  match  points  are  stored  in  ascending  order  of  the  row 
numbers . 

IFB  - A flag  set  to  +1.  +1  means  that  the  rows  are  being  incremented 
toward  the  final  row  of  the  framelets  and  -1  means  that  the  rows 
are  being  decremented  toward  the  first  row  of  the  framelets. 

IND  - A difference  of  indices.  Enables  only  that  portion  of  BUF  to  be 

printed  which  contains  norms  calculated  over  some  area  of  interest. 

GENERAL  FLOW  CHART : 

See  fig.  8.5. 3. 6.1 

’ DETAILED  FLOW  CHART: 


See  fig.  8. 5. 3.6. 2 


ENTRY 


Fig.  8. 5. 3. 6.1  GENERAL  FLOW  CHART  - FMPT 


118 


Fig.  8.5. 3.6.1  GENERAL  FLOW  CHART  - FMPT 


CONTINUED 
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CALC  ROW  DIFFERENTIAL 
AT  RECENT  MIN 


W 


Fig.  8. 5. 3. 6.1  GENERAL  FLOW  CHART  - FMPT  --  CONTINUED 
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oFig.  8. 5. 3. 6.1  GENERAL  FLOW  CHART  - FMPT  ~ CONCLUDED 
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Fig.  8.5. 3.6.2  DETAILED  FLOW  CHART  - FMPT 
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ROWIS  = NROW-DI 
ROWFS  = NROW+DI 
ROWIF  = NROW-DR-DI-MN  2 
ROWFF  = NROW-DR+DI+MN2 


IUF  = 1 

XT 


Fig.  8. 5. 3. 6. 2 DETAILED  FLOW  CHART  - FMPT  — CONTINUED 
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-Fig.  8. 5. 3. 6. 2 DETAILED  FLOW  CHART  - FMPT  --  CONTINUED 
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Fig.  8. 5. 3. 6. 2 DETAILED  FLOW  CHART  - FMPT  — CONTINUED 
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Fig.  8. 5. 3. 6. 2 DETAILED  FLOW  CHART  - FMPT  — CONCLUDED 
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8. 5. 3. 7 Description  of  subroutine  PENT 
IDENTIFICATION 

Name  — FRNT  ___ 

Author/Date  — R.L. Wendt/October  1970 

Organization  — ASR 

Machine  Identification  — UNIVAC  1108 

Source  Language  — FORTRAN  V 

PURPOSE/METHOD  ' 

This  routine  prints  the  coordinates  of  the  match  points  and  norm 
of  the  match. 

The  coordinates  of  the  fixed  array  S;  row  column  are  printed 
first  and  .the  coordinates  of  the  moving  array  F;  row,  column  are 
printed  and  lastly,  the  norm  at  the  match  is  printed. 

USAGE 

Calling  sequence: 

CALL  PMT  (ICOORD,  SSRM) 

The  description  of  the  calling  variables  are  given  in  Table  8.5.2. 
DETAILED  FLOW  CHART  o 


See  Fig.  8. 5. 3. 7.1 
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ICOORD(I,J)  = 0 


Fig.  8. 5. 3. 7.1 


DETAILED  FLOW  CHART  - PRNT 
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Fig.  8. 5. 3. 7.1  DETAILED  FLOW  CHART  - PRNT  . 
(Concluded) 
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8.5. 3. 8 Description  of  subroutine  UNPACK 
IDENTIFICATION 

Name  — UNPACK 

Author/Date  — N.W.  Naugle  - Early  1967 

Organization/Installation  — CAD-MSC 

Machine  Identification  — UNIVAC  1108 

Source  Language  — Assembly  Language 

PURPOSE 

Subroutine  UNPACK  converts  a packed  word  into  six  6-bit  characters 
and  stores  each  in  a separate  word. 

USAGE 

Calling  sequence 

CALL  UNPACK  (A,  Al,  A2,  A3,  A4,  A5,  A6) 

A Word  to  be  unpacked 

A1-A&  Words  to  receive  the  six  unpacked  bytes. 
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9.  The  problem  of  joining  framelets 

The  main  output  of  SKINNY  is  a list  of  matchpoints  which  indicate 


exactly  where  the  row  and  column  match 

between  adjacent 

framelets  lies. 

For  example,  one  such  match  is 

reproduced  here; 

COORDINATES  OF  MATCH  POINTS 

FIXED  ARRAY  S 

MOVING 

ARRAY  F 

ROW 

COL 

ROW 

COL 

297 

6 

318 

630 

599 

2 

626 

624 

736 

6 

771 

630 

890 

2 

917 

625 

961 

2 

988 

625 

1147 

6 

1169 

630 

1315 

2 

1345 

625 

1502 

6 

1531 

630 

1679 

2 

1707 

625 

In  this  match,  we  note  that,  for  example,  ROW 

297  COL  6 

of  the  right  hand 

framelet  (in  fact,  framelet  027)  matches  ROW 

318  COL  630  of  the  left  hand 

framelet.  If  we  make  a small 

table  of 

COLUMN 

differences,  we  confirm  the 

fact  that  the  COLUMN  match  is 

fairly  s 

teady: 

MATCH  POINT 

A COL 

1 

624 

2 

622 

3 

624 

4 

623 

5 


623 
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6 

7 

8 

. 9 

The  COLUMN  jitter  of  + 1 element  is,  in  fact,  less  than  one  might  accept. 
We  can  conclude  that  COL  636  of  the  right  edge  of  the  left  framelet  is 
matched  with  COL  11  on  the  left  edge  of  the  right  framelet. 

In  joining  two  or- more  framelets  as  we  are  here,  we  are  attempting 
to  construct  the  joined  framelets  on  a mesh  (called  the  MASTER  MESH)  of 
points  on  which  we  define  the  value  of  the  picture  using  the  match 
points  and  (perhaps)  other  control  information.  In  our  case,  since 
we  have  nothing  better  to  go  on,  we  used  a MASTER  MESH  consisting  of  the 
coordinate  system  of  the  first  sub- framelet  translated  down  the  framelet 
(so  that  it  begins  with  ROW  DR  (1)  (an  integer  which  is  read  in  and  which 
indicates  the  first  ROW  to  be  joined))  and  extended  horizontally.  Each 
COLUMN  number  of  the  MASTER  MESH  has  associated  with  an  integer  1,  2 or  3 
(in  a vector  IFLT  (1878))  which  indicates  tyhich  framelet  the  point  for 
that  COLUMN  number  is  coming  from  and  another  integer  1,  2,  ...,  636 
(in  a vector1  IFLTCL  (1878))  which  indicate  which  COLUMN  of  that  framelet 
the  point  is  coming  from.  Relatively,  the  ROW  problem  is  simpler  (since 
there  is  no  problem  with  switching  back  and  fourth  to  avoid  drummarks) , 
and  we  perform  a simple  linear  interpolation  to  arrive  at  the  ROW  numbers 
for  sub-framelets  2 and  3. 

As  hinted  at  above,  the  main  reason  the  COLUMN  data  is  read  in 
rather  than  calculated  in  a subroutine  is  that  it  was  simpler  to  punch 
the  cards  than  it  was  to  do  the  logic  to  jump  around  between  framelets  to 


624  * 

623 

624 
623 
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avoid  the  drummarks.  Were  this  program  to  be  run  on  a production  basis, 
it  would  be  worth  the  effort  to  read  in  the  COLUMN  match  points  (given 
by  SKINNY)  and,  using  these,  call  a subroutine  which  calculates  IFLT  and 


IFLTCL. 
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10.  DOCUMENTATION  OF  JOIN 

10.1  INTRODUCTION 

The  problem  of  practically  joining  several  framelets  of  LO  data  is 
mainly  one  of  efficient  tape  handling  and  computation.  This  document  is 
explicitly  concerned  with  three  framelets,  mainly  to  fix  ideas,  but  the 
program  can  handle  as  many  framelets  as  there  is  provision  for  tape  drives 
in  the  system.  (At  least  one  drive  is  required  for  the  output.)  The 
program  makes  extensive  use  of  multiple  buffering  to  protect  against 
read  errors  and  to  allow  parallel  computation  and  reading.  However,  the 
heart  of  the  program  is  a circular  buffer  RMTX,  dimensioned  by  (3,  15,  636). 
(RMTX  may  be  thought  of  as  three  circular  buffers.)  After  the  initial 
read  phase  of  JOIN  (which  fills  RMTX),  the  first  block  contains  15  unpacked 
lines  from  UNIT(l),  the  second  contains  15  unpacked  lines  from  UNIT(2), 
and  the  third  block  of  RMTX  contains  15  unpacked  lines  from  UNIT (3).  As 
the  lines  are  "used"  (that  is,  as  the  framelets  are  joined  preceeding 
down  the  framelet) , the  three  circular  buffers  are  kept  full  by  appropriate 
(double  buffered)  reading. 

The  joined  output  of  even  a nine  chit  area  involves  a substantial 
amount  of  tape.  The  possibility  that  there  may  not  be  enough  output 
tape  room  is  considered;  in  the  event  that  full  framelets  were  being 
joined,  this  test  would  result  in  output  tape  units  being  switched. 

10.2  GENERAL  DESCRIPTION  OF  JOIN  PROGRAM: 

The  program  initially  sets  all  the  necessary  constants  to  the  pre- 
scribed value.  • The  row  mesh,  i.e.  the  interpolated  row  numbers,  are 
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determined  by  RWMSH.  The  values  for  the  arrays  IFLT,  IFLTCL,  DR,  SCF  are 
read  in  from  data  cards.  The  header  array  incorporated  on  each  input 
tape  is  spaced  over  by  N.TRAN  since  the  header  essentially  provides  no 
necessary  information  for  this  program.  Next  the  notch  data  and  the  number 
of  rows  determined  by  DR  are  spaced  over.  Each  input  tape  should  be  ready 
to  read  in  the  first  line  of  each  framelet  for  the  joined  picture.. 

.The  process  of  double  buffering  NLINES  into  the  array  RMTX  is  performed 
by  unpacking,  removing  drum  marks,  storing  and  correcting  data  while  the 
next  buffer  is  being  read. 

At  this  juncture  the  program  has  RMTX  filled  with  corrected  data  and 
the  process  of  joining  the  framelets  is  begun.  It  is  of  interest  . to  note 
that  the  arithmetic  on  the  rows  of  RMTX  is  treated  modulo  NLINE  so  that 


ni/mTT  j *.  * 1 i ..  „ _ 4 „ 1 „ .r  JT — J ••  j 1 1 ^ r _ 

lvi'iiA  ib  ebbcu  LXcti±y  cl  L-ir^LlxdL  uuiicL  emu.  xs  ucpic  LcCl  Gi  Cl  a.  ci  wncn  tne 

framelets  are  joined.  Because  of  the  circular  buffer  and  modular 
arithmetic,  the  question  of  whether  more  data  is  needed  to  accomplish 
the  join  process  is  continually  tested.  The  process  of  reading  in  more 
lines  for  RMTX  is  accomplished  via  a modified  double  buffer  technique  on 
each  framelet  individually.  The  data  undergoes  the  usual  process  of 
unpacking,  removing  drum  marks  and  correction  before  storing. 

After  the  program  has  determined  that  there  is  sufficient  data  in 
RMTX,  a row  of  the  output  joined  picture  is  generated  by  linear  inter- 
polation. The  final  joined  row  is  packed  into  OBUF  and  a provision  is 
incorporated  so  that  a DLOCE  correction  may  be  applied  to  the  output 
data.  Once  again  the  process  of  output  uses  double  buffering  so  that 


the  join  algorithm  never  has  to  wait  while  a tape  is  being  read  or  written. 
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Once  the  entire  frame lets  have  been  joined,  an  end  of  file  is  placed 
on  .the  output  tape,  all  units  are  rewound  and  the  joined  output  is  printed 
out  at  the  matched  edges  of  the  framelets. 

It  should  be  noticed  that  the  join  program  incorporates,  within  the 
process  of  reading  tape  while  joining  rows  together,  the  feature  that  a 
read  error  may  occur.  The  process  of  circular  buffering  may  allow  the 
algorithm  to  join  rows  of  the  picture  repetitiously  while  a read  error 
is  occurring.  This  eventuality  has  been  accounted  for  and  in  the  event 
that  recovery  from  a read  error  is  achieved  the  process  continues.  Not 
accounting  for  this  eventuality  could  lead  to  disastrous  results  in  the 
outputted  picture.  If  no  recovery  from  a read  error  is  possible,  then 
nothing  can  be  done  at  any  rate  and  the  process  is  terminated. 

One  further  observation  is  that  the  joining  process  is  slightly 
biased  to  reading  tape  since  it  is  clear  that  the  process  is  computation 
bound.  This  feature  allows  for  a better  balance  of  computing  while 
reading  tape,  thereby  minimizing  overall  execution  time. 

10 . 3 GENERAL  FLOW  CHART 

Fig.  10.3.1  gives  the  general  flow  chart  for  JOIN.  Two  of  the  blocks 
are  not  completely  self-explanatory,  and  are  expanded  in  detail  in 
Fig.  10.3.2  and  Fig.  10.3.3.  All  of  the  symbols  and  subroutines  mentioned 
are  given  detailed  descriptions  in  the  remainder  of  §10. 
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FIG.  10.3.1  GENERAL  FLOW  CHART  JOIN 


*THESE  BLOCKS  ARE  EXPANDED  FURTHER  IN  DETAIL  IN  FIG.  10.3.2 
AND  FIG.  10.3.3  (TOP,  BOTTOM  RESPECTIVELY). 


Fig.  10.3.1  GENERAL  FLOW  CHART  JOIN  (concluded) 


READ  1 LINE 
FROM  EACH  TAPE 
AND  WAIT  FOR 
COMPLETION 

1 

7 

INCREMENT 
LINE  COUNTER 

7 

- J 

1 

START  READ 
ON  NEXT  BUFFER 

UNPACK  PREVIOUS 
BUFFER,  REMOVE 
DRUM  MARKS, 

APPLY  CORRECTION 


FIG.  10.3.2  DETAIL 


V 
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Fig.  10.3.3  DETAIL 


FIG.  10.3.3  Detail  (Concluded) 
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10.4  USAGE 

10.4.1  INPUT  DESCRIPTION 

10.4.1.1  Card  input 

SCF  - Smoothed  correction  factors  made  by  program  CFAC  (the  documentation 
of  which  is  included  in  the  report  on  Project  B) . These  cards 
constitute  636  numbers  punched  in  FORMAT  (6E13.8). 

IFLT  - An  array  of  1878  integers  indicating  from  which  framelet  the  k th 
(1  < k < 1878)  column  of  a row  of  the  MASTER  MESH  is  built  using. 
These  numbers  are  read  in  FORMAT  (80  II).  - 

IFLTCL  - An  array  of  1878  integers  indicating  from  which  column  of  the 

IFLT  (K)  th  framelet  the  k th  column  of  a row  of  the  MASTER  MESH 
is  built  using.  These  numbers  are  read  in  FORMAT  (26  I 3). 

DR  - An  array  of  three  integers  which  contains  the  number  of  the  first 
line  from  each  framelet  to  be  joined.  These  integers  are  read 
in  FORMAT  (313). 

In  addition  to  the  parameters  read  by  the  main  program,  subroutine  PvWMSH  reads 

R(I,J)  - The  right  row  match  numbers  given  by  SKINNY.  In  our  specific 

problem,  there  are  two  sets  of  them  (because  there  are  three 

framelets) . The  numbers  are  read  in  FORMAT  (16  15). 

« * 

L(I,J)  - The  left  row  match  numbers  given  by  SKINNY.  In  our  problem, 
there  are  two  sets  of  them.  The  numbers  are  read  in  FORMAT 


(16  I 5). 
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10.4.1.2  Tape  input. 

The  tapes  read  here  are  designed  to  look  like  full  framelet 
tapes  in  order  to  test  JOIN  without  using  much  computer  time.  The  program 
will  also  use  the  tapes  made  for  the  program  FILTER.  The  format  of  the 
tapes  is  discussed  fully  in  the  report  for  Project  B.  A brief  discussion 
of  each  input  tape  follows: 

Each  input  tape  has  the  following  format 


HEADER 


I EOF 
1 

150  ROWS  NOTCH  j 

+ ! 

2068  ROWS,  j 

1 LINE  PER  RECORD  j 


EOF 


EDGE  DATA 


EOF  ! 

: 

1 

EOF  j 


Each  row  has  106  words  of  6 6bit  bytes. 
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f MATiNT  p rogram  deck? I . 


f MATINT  PROGRAM-DECK)]  . 
/|  FOR  MATINT j | 

4wmshJ erogramIdeS:  | LF  . 

T FOR  RWMSH  j-1 


—li 

PROGRAM..  DEr.Kij 

ietty  I i£J 


^PRETTY..  PROG 
k FOR  PRETTY 


/MpackJproIrm^de^  ’ 

jf  FOR  UNPACK 1 1 


:TACK  6 PROGRAM  DECK-  i 
g"  FOR  PACK6  ^ [| 

/LOOKUP  3 RO  GRAmIdECK 
FOR  LOOKUP  ; I 

RDMKS_  PROGRAM-DECK  I j 
FOR  RDMKS  \ J 


^MO^QSRAM~J)EC^I 

- FOR  SIXPAK  K 


FOR  STORE 


r-  . ■ • f 

jUNPAK  PROGRAM  DEQKji 
l FOR  UNPAK  i 11 

5 : .1. 


/PMAP „P RO GRAM_DKCK  . 
I FOR  PMAP  i f,1 


PREG  PROGRAM'  DECKiJj 
FOR  PREG  ']  Lj 


JSE  PROGRAM  DECK  :‘f 
FOR  PSE  Mij 

jiV; 

— -7  !'</< 

^PROGRAM  DECK  ; J 
R JOIN  1 ,{ 

ASG  D = OUTPUT  ^ \J 

ASG  C = INPUT  j J 

ASG  ~B  = INPUT  ] j- 

ft?  ASG  A = INPUT  ■ -M 

8 „ I 

rMSG  ’ 1 f-i 

?JOB  | 


i EOF 


(DATA  DR _ 
("DAT  A*~  I FLT  CL, 
('  DATA  IFLT  _J 
( DATA  L ~ 

/DATA  r_  

(DATA  SCF 

| XQT  JOIN 


Fig.  10.4.2.1.1.  DECK  SETUP  (UNIVAC  1108) 
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10.4.2  PROGRAM  RUN  PREPARATION 
10.4.2.1  Card  deck  setup. 


For  the  card  deck  setup,  see  fig.  10.4.2.1.1.  The  program  is  also 
on  PCF  tape  #62769,  held  in  the  name  R.  L.  Wendt. 


10.4.2.2  Required  I/O  devices  and  special  hardware. 

The  program  uses  the  standard  FORTRAN  V read  statements  for  input 
card  data.  For  a nine  chit,  three  framelet  area  with  PCF  tape,  five  tape 
drives  are  required.  One  FH432  drum  file  is  required.  No  use  is  made  of 
FSTRN.  All  I/O  on  tapes  and  handling  of  the  drum  is  by  NTRAN  read /write 
statements. 

(The  program  may  require  some  education  of  the  operator  before  it 
runs  smoothly  because  of  the  output  at  the  very  end.  The  joined  area 
is  printed  using  symbols  to  get  a look  at  the  joined  area;  since  the 
printer  makes  such  a strange  noise  (with  page  edject  suppressed  and 
printing  full  pages),  the  operator  may  think  something  wrong  with  the 
program  and  abort  the  run.  However,  the  output  tape  is  already  written 
before  the  printing  subroutine  is  called  so  that  the  main  'function  of 
JOIN  has  been  accomplished.)  _ 


10.4.2.3  Subroutine  requirements 


The  program  uses  the  following  subroutines: 


PSE 

PREG* 

PMAP 

UNPAK 

STORE 

SIXPAK 

RDMKS 


LOOKUP* 

PACK6  * 

UNPACK* 

PRETTY* 

RWMSH 

MATINT 
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Subroutines  marked  with  * are  standard  LO  subroutines  documented 
elsewhere.  The  others  are  described  in  §10.5. 

10.4.3  OUTPUT  DESCRIPTION  . 

10.4.3.1  Printed  output 

The  only  normal  output  will  be  the  joined  area  printed  using 
subroutine  PSE.  In  case  of  an  error  reading  tape  which  cannot  be  recovered 
from,  appropriate  diagnostic  messages  are  printed.  The  program  produces 
about  5,000  lines  of  output  including  program  listing. 

10.4.3.2  Tape  output 

The  output  tape  starts  with  the  first  row  of  the  MASTER  MESH  and 
writes  one  row  per  record,  each  row  containing  ICMAX  (=  1878  in  our  case) 
bytes  packed  6 6bit  bytes  to  a word.  At  the  end  of  the  data,  an  end  of 
file  mark  is  written  on  the  output  tape. 

10.4.4  EXECUTION  CHARACTERISTICS 
10.4.4.1  Restrictions. 

The  most  severe  restriction  to  the  program  is  the  core  size  of 
the  1108.  This,  coupled  with  restrictions  on  the  number  of  tape  drives, 
restricts  the  number  of  framelets  which  can  be  joined  at  once.  Another 

o 

restriction  is  the  length  of  output  tape  available. 

The  program  requires  about  ll,300o  core  locations  for  code  and 

o * ’ 

152,000o  core  locations  for  storage,  leaving  only  about  2,500  core 

o 8 

locations  free.  (The  system  uses  14,000Q  locations.) 
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10.4.4.2  Run  time 

The  run  time  is  somewhat  variable,  probably  owing  to  the  problems 
of  hanging  tapes.  However,  approximately  18  minutes  should  be  required 
for  a 2000  x 1878  (approximate  9 chit)  area.  It  is  probable  that  on  a 
very  long  run  (such  as  joining  three  framelets ; together) , the  initial 
delay  while  tapes  are  being  hung  and  positioned  would  be  vastly  over- 
come by  computation  time. 

10.4.4.3  Accuracy. 

Depending,  of  course,  on  the  accuracy  of  the  input  data,  the  joined 
picture  is  perfect.  (The  mechanical  scan  distortion  of  the  first  framelet  , 
is  carried  over  to  the  next  two  framelets.  Nevertheless,  the  resulting 
distortion  should  be  much  less  than  the  GRE  prints.  The  Reseau  control 
points  are  too  far  appart  to  allow  correction  on  a 9 chit  area.) 


10.5  REFERENCE  INFORMATION 


This  section  contains  the  following  information 


10.5.1 

Detailed  flow  chart 

10.5.2 

Symbol  definition  table 

10.5.3 

Subroutine  documentation 

10.5.3.1 

KWMSH 

10.5.3.2 

RDMKS 

10.5.3.3 

STORE 

10.5.3.4 

SIXPAK 

10.5.3.5 

PSE 

10.5.3.6 

UNPAK  ■ --  . ..  - 

10.5.4 


Sample  Listing 


Fig.  10.5.1 


DETAILED  FLOW  CHART 


Fig.  10.5.1  continued 
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F = IFLT(IC) 
FC=IFLTCL (IC) 


Fig.  10.5.1  continued 


NTRAN  \ 

UNIT (NF1) , 1,  NWOUT  / 
v OBUF(l,IFB) ,IW2)  / 


/ NTRAN 

\ UNIT (NF1) , 1,  NWOUT 
\ OBUF(l,IFB) ,IW1) 
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DR  - 


UNIT  - 


IBUF  - 


IR  - 


RMTX  - 


NR  - 


LOW  - 


IFLT  - 


IFLTCL  - 


XR  - 


An  array  which  contains  the  number  of  the  first  line  to  be 
joined  for  each  framelet. 

An  array  whose  values  agree  with  the  tape  assignment  e.g, 
UNIT(I),  1 < I < 3 is  the  unit  assignment  for  each  tape 
containing  framelet  I and  the  4th  unit  is  used  for  the  joined 
output. 

An  array  used  for  double  buffering  input  from  the  tapes  con- 
taining data. 

An  array  which  receives  the  status  word  affecting  the  trans- 
mission of  a read  from  tape. 

An  array  into  which  the  data  is  stored  after  the  data  has 
been  unpacked,  drummarks  removed  and  correction  factors 
applied. 

An  array  which  contains  the  line  number  of  each  line  being 
joined. 

An  array  which  contains  the  row  numbers  to  be  joined  for  each 
framelet. 

An  array  whose  values  determines  which  framelet  the  row  being 
joined  belongs  to. 

An  array  whose  values  determines  which  column  the  interpolation 
is  to  be  done  on  in  constructing  a joined  row. 

An  array  which  contains  the  real  part  of  the  interpolated 
row  number. 


Table  10.5.2  SYMBOL  DEFINITION  TABLE  - JOIN 
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KBUF  - 

MSTMTX  - 

OBUF  - 

NFMLT  - 
NWPR  - 
NF1  - 
NLINE  - 

I UMAX  - 
ICMAX  - 
NWOUT  - 
JROW  - 

NTDIM  - 
NRPFLT  - 

RE  CL  - 
T - 


An  array  which  is  used  in  the  process  of-  unpacking  the  data, 
removing  drum  marks  and  applying  correction  factors. 

An  array  which  contains  the  joined  row  from  each  of  the 
framelets  being  considered. 

An  array  which  contains  the  output  data  (joined  row)  in  packed 
form. 

The  number  of  framelets  being  joined. 

The  number  of  words  per  row. 

NFMLT+1,  used  for  determining  the  number  of  tape  units  needed. 

An  arbitrary  value,  determines  the  number  of  lines  read  into 
RMTX  for  each  framelet  to  be  joined. 

Number  of  rows  in  output  joined  picture. 

Number  of  columns  in  output  joined  picture. 

Number  of  columns  in  output  joined  picture  in  packed  form. 

The  difference  between  any  two  rows  to  be  interpolated  on; 
used  in  constructing  ROW. 

The  number  of  framelet  edges  to  be  joined  together,  NFMLT-1. 

The  number  of  rows  per  framelet  to  be  joined  biased  by  150 
because  of  the  notch  data  included  in  a framelet. 

The  accumulated  length  of  tKe  output  tape;  used  to  determine 

o 

if  the  output  picture  is  too  big  for  one  reel;  presently  tested 
against  2000  while  actual  tape  length  is  2450.  a 
The  length  of  one  record  of  a joined  row,  data  plus  inter-record 
gap  in  feet. 


Table  10.5.2  SYMBOL  DEFINITION  TABLE  - JOIN  (Continued) 
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KTR  - A counter  used  to  determine  if  NLINES  have  been  inputted 
into  RMTX  initially. 

IFLG  - A flag  used  to  determine  which  buffer  of  a doublejbuffer 

contains  the  data  to  be  unpacked,  drummarks  removed  from  and 
correction  factors  applied  to. 

LTR  - A counter  used  to  determine  which  line  of  input  goes  into 
which  line  of  RMTX  via  modular  arithmetic  on  NLINE. 

ITEMP  - The  integral  portion  of  the  interpolated  row  number. 

F - Framelet  number  of  framelet  being  joined. 

FC  - Framelet  column  of  framelet  being  joined. 

RL  - Integral  portion  of  the  interpolated  row  number. 

RU  - RL+1,  next  row  after  interpolated  row. 

RI  - Real  part  of  the  interpolated  row. 

IRL  - RL  (modulo  NLINE)+1,  used  to  determine  the  correct  row  in  RMTX. 

IRU  - RU  (modulo  NLINE)+1,  used  to  determine  the  correct  row  in  RMTX. 

IFB  - Flag  used  in  double  buffering  output. 

IW1,IW2  - Status  words  used  to  determine  transmission  status  of  data  on  out 
output . 

SCF  - Smoothed  correction  factors . 


Table  10.5.2  SYMBOL  DEFINITION  TABLE  - JOIN  (Concluded) 
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1015.3.1  Description  of  subroutine  RWMSH  (row  mesh) 
IDENTIFICATION 


Name 

Author /Date 
Organization 
Machine  Identification 
Source  Language 


RWMSH 

R.L.  Wendt/June  1970 
ASR 

UNIVAC  1108 
FORTRAN  V 


PURPOSE/METHOD 

This  subroutine  generates  an  array  containing  the  row  numbers  of 
each  framelet  to  be  used  in  joining  the  framelets  together.  It  linearly 
interpolates  on  the  match  points  which  are  read  in  from  data  cards. 

Its  output  Is  stored  in  ROW  whose  dimensions  - are  (NFMLT,  IRMAX) . 

USAGE 

Calling  sequence: 

CALL  RWMSH  (NFMLT,  JROW,  NRPFLT,  ROW,  NTDIM) 

The  calling  variables  are  described  in  Table  10.5.2. 

SUBROUTINE  REQUIREMENTS 

The  actual  interpolation  is  done  by  subroutine  MATINT.1  A detailed 
flow  chart  of  MATINT  is  shown  in  Fig.  10.5.3.1.2. 

Calling  sequence:  , ■ - 

CALL  MATINT  (I, J , MATCH, R,L,N) 


where 


P4  i-3 
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I — The  number  of  the  left  framelet  being  joined* 

J — A real  number,  equal  to  the  row  being  transfered  to  MATINT. 

MATCH  — . A real  number,  the  interpolated  result  from  MATINT. 

— An  integer  array  consisting  of  right  and  left  match  points, 
generated  by  SKINNY 

N — An  integer,  indicating  which  framelet  pair  is  under 
consideration* 

DETAILED  FLOW  CHART 


See  Fig.  10.5.3.1.1. 
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FIG.  10.5.3.1.1  DETAILED  FLOW  CHART  - RWMSH ' (Continued) 


17 


y 

K=K+1 

FIG.  10.5.3.1.1  DETAILED  FLOW  CHART  - RWMSH  (Concluded) 
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10.5.3.2  Description  of  subroutine  RDMKS  (remove  drummarks) 


IDENTIFICATION 

Name 

Author/Date 
Organization 
Machine  Identification 
Source  Language 


- RDMKS 

- R.L.  Wendt/June  1970 

- ASR 

- UNIVAC  1108 

- FORTRAN  V 


PURPOSE/METHOD 

This  subroutine  removes  the  drummarks  from  the  data  by  maximizing 
the  drummark  region  data  and  the  nearest  adjacent  data.  This  process 
doesn't  eliminate  craters  when  craters  and  drummarks  occur  together, 
and  is  far  superior  to  linear  interpolation  both  in  execution  time  and 
in  resulting  correction. 


USAGE 

Calling  sequence 
CALL  RDMKS  (KBUF,  I) 

The  calling  arguments  are  described  in  Table  10.5.2. 
The  subroutine  uses  no  subroutines  of  its  own. 


DETAILED  FLOW  CHART 


See  Fig.  10.5.3.2.1. 
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KB(I, J)= 

MAXO(KB(I, J) ,KB(624, J)) 


KB(I, J)= 

MAX0(KB, (I, J) ,KB(629 , J) 


Fig.  10.5.3.2.1  DETAILED  FLOW  CHART  - RDMKS  (Concluded) 
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10.5.3.3.  Description  of  subroutine  STORE  (store  corrected  data 


into  RMTX) 

IDENTIFICATION 

Name 

- STORE 

Author /Date 

- R.L.  Wendt /June  1970 

Organization 

- ASR 

Machine  Identification 

- UNIVAC  1108 

Source  Language 

- FORTRAN  V 

PURPOSE/METHOD 

This  subroutine  stores  data  and  applies  smoothed  correction  factors 
from  KBUF  into  RMTX  based  on  the  framelet  number  I and  the  row  of  the 
framelet  I treated  modulo  NLINE  which  is  KTR  or  LTR. 

USAGE 

Calling  sequence  (2) 

STORE  (KBUF,  RMTX,  I,  LTR,  NFMLT,  NLINE,  SCF) 
or 

STORE  (KBUF,  RMTX,  I,  KTR,  NFMLT,  NLINE,  SCF) 

The  program  variables  are  described  in  Table  10.5.2. 

DETAILED  FLOW  CHART 


See  Fig.  10.5.3.3.1. 
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Fig.  10.5.3.3.1  DETAILED  FLOW  CHART  - STORE 
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10.5. 3.4  Description  of  subroutine  SIXPAK 


— SIXPAK 

— R.L.  Wendt/June  1970 
— ASR 

Machine  Identification  — UNIVAC  1108 

Source  Language  —FORTRAN  V 

PURPOSE/METHOD 

This  subroutine  packs  the  data  six  characters  per  word  from  the 
joined  master  picture  matrix  MSTMTX  into  OBUF  depending  on  the  value 
of  IFB  which  is  used  in  double  buffering  the  output. 

USAGE 

Calling  sequence 

CALL  SIXPAK  (MSTMTX,  OBUF,  IFB,  NWOUT) 

The  calling  arguments  are  described  in  Table  10.5.2. 

SIXPAK  uses  subroutine  PACK6  from  the  LO  package. 

DETAILED  FLOW  CHART 

See  Fig.  10.5.3.4.1. 


IDENTIFICATION 

Name 

Author/Date 

Organization 


/ 
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o 


Fig.  10.5.3.4.1  DETAILED  FLOW  CHART  - SIXPAK 
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10.5.3.5  Description  of  subroutine  PSE 
IDENTIFICATION 

Name  - PSE 

Author/Date  - R.L.  Wendt/June  1970 

Organization  - ASR 

Machine  Identification  - UNIVAC  1108 

Source  Language  - FORTRAN  V . 1 

PURPOSE 

This  subroutine  allows  the  user  a look  at  the  joined  picture 
especially  in  the  region  where  the  framelets  were  joined  by  the  match 
points.  The  program  was  designed  as  a temporary  means  of  determining 
whether  the  join  algorithm  is  performing  correctly. 

GENERAL  DESCRIPTION  ' . 

Under  the  assumption  that  three  framelets  have  been  joined  and 
that  the  joined  edge  of  framelets  1 and  2 occurs  between  columns  570 
and  690  and  that  the  joined  edge  of  framelets  2 and  3 occurs  between 
columns  1188  and  1308,  then  words  between  95  and  115  and  between  198 
and  218  of  the  output  tape  are  reduced  in  tonal  resolution  via  the 
transformation  PRETTY  and  printed.  Words  between  198  and  218  are  stored 

V 

in  the  drum  and  after  the  first  joined  edge  has  been  printed,  the  data 
is  read  fr.om  the  drum  and  the  second  joined  edge  is  printed.  As  was 
mentioned  earlier,  this  routine  provides  a quick  look  at  the  final 
product.  The  routine  can  be  removed  easily,  if  necessary.  The  routine 
can  be  generalized  in  an  obvious  manner  to  provide  for  more  framelets 
or  to  provide  for  a greater  portion  of  the  output  picture  to  be  printed. 


USAGE- 


Calling  sequence 
PSE 

Subroutines  used 

PMAP 

PRETTY 

PREG 

DESCRIPTION  OF  VARIABLES 

NL  - Row  index  on  output  joined  picture 
IBUF  - Input  buffer  used  in  reading  output  tape. 

JBUF  - Joined  edges  of  picture  for  framelets  1 and  2. 
KBUF  - Joined  edges  of  picture  for  framelets  2 and  3. 

DETAILED  FLOW  CHART 

See  Fig.  10.5.3.5.1 
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FIG.  10.5.3.5.1  DETAILED  FLOW  CHART  - PSE  (Continued) 
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FIG.  10.5.3.5.1  DETAILED  FLOW  CHART  - PSE  (Continued) 


FIG.  10.5.3.5.1  DETAILED  FLOW  CHART  - PSE  (Continued) 


FIG.  10.5.3.5.1  DETAILED  FLOW  CHART  - PSE  (Continued) 


BLANK  PAGE 


202 
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PRECEDING  PAGE  BLANK  NOT  FILMED 


FIG.  10.5.3.5.1  DETAILED  FI^OW  CHART  - PSE  (Concluded) 
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10.5,3.6  Description  of  subroutine  UNPAK 


IDENTIFICATION 

Name 

- UNPAK 

Author/Date 

- R.L.  Wendt/June  1970 

Organization 

- ASR 

Machine  Identification  - UNIVAC  1108 

Source  Language  - FORTRAN  V " - — 

PURPOSE/METHOD 

This  subroutine  -unpacks  NWPR  words  from  IBUF  dimensions  (2*NWPR, 
NFMLT)  into  KBUF  dimensions  (6*NWPR,  NFMLT) . IBUF  is  a double  buffer 
array  while  KBUF  is  single  buffer  array.  IBUF  is  used  on  input  (double 
buffered)  and  KBUF  is  a working  array.  The  argument  I determines  which 
framelet  is  being  considered  and  IFLG  determines  which  buffer  of  IBUF  is 
to  be  unpacked  into  KBUF. 

USAGE 

Calling  sequence 

CALL  UNPAK  (IBUF,  KBUF,  I,  IFLG) 

Subroutine  used:  UNPACK 

The  description  of  the  calling  variables  is  found  in  Table  10.5.2. 
DETAILED  FLOW  CHART 


See  Fig.  10.5.3.6.1. 


K=(J-1)*6 


FIG.  10.5.3.6.1  DETAILED  FLOW  CHART  - UNPAK 


FIG.  10.5.3.6.1  DETAILED  FLOW  CHART  - UNPAK 
(Concluded) 
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11.  Overall  Operational  Procedures 

* ' 

The  programs  reported  on  here  do  not,  of  course,  run  themselves.  At 
the  minimum,  an  experienced  programmer  must  supervise  the  preparation  and 
running  of  each  of  the  programs  reported  on  here.  We  have  prepared  a flow 
chart  (Fig.  11.1)  of  steps  to  be  performed.  (One  comment:  program  LRE  and 
program  COPYT  (documented  in  the  report  on  Project  B,  part  2 (filters)) 
should  be  combined;  this  assumption  has  been  made  in  Part  II  of  this  report. 
The  combination  LRE  with  COPYT  will  run  at  the  same  speed  (namely  tape 
read  speed)  as  either  separately.)  At  the  minimum,  each  box  represents  a 
turn-around  time  of  one  day.  Two  weeks  would  be  a better  estimate  for  the 
average  time  required  to  join  a 9-chit  area  including  turn-around  time  and 

/ 

apparently  unavoidable  delays  in  locating  tapes  and  other  information. 

We  must  emphasise  the  importance  of  an  experienced  programmer  familiar  with 
the  generally  confused  situation  LO  data  seems  to  be  in. 

JPL/IPL  needs  the  following  information  (for  example) 

Reel  # 

Play:  7 track,  odd  parity,  800  bpi,  one  line/record, 

one  file/picture,  stretch  to  give  film  T linear 
with  DN,  0 - .135  MCS,  77g  = .61  MCS. 

The  geometric  spacing:  36.05  y line  spacing, 

AO. 5 y pixel  spacing.  Playback  normal, 

o 

gives  positive  exposure  on  VFC  film. 

Give  the  dimension  of  each  file  (e.g.  1878  x 2012). 


Figure  11.1  Operational  Flow  Chart,  Joining  Three  Framelets 
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12.  Illustrative  Example. 

The  steps  outlined  in  § 11  were  carried  out  for  the  2068-line 
(approximately  9-chit)  area  from  LO  III,  FR  154  H,  FRMLTS  028,  027,  025 
(SURVEYOR-3  area).  At  the  time,  the  output  picture  (1878  x"2012)  could 
not  be  displayed  at  one  pass  owing  to  limitations  in  the  display  mechanism. 

A simple  ad  hoc  program  was  written  to  break  the  joined  picture, 
producing  tape  //  35419  consisting  of  two  936  x 2012  pictures.  Fig.  12.1 
and  12.2  are  prints  of  the  pictures  produced  by  JPL/IPL  of  tape  it  35419. 

(The  negatives  of  all  pictures  produced  in  this  and  other  reports  are 
included  with  the  first  copy  of  the  report'.)  Later,  after  the  filter 
problem  had  been  solved,  we  prepared  another  picture  of  the  same  area, 
tape  it  15985,  displayed  in  Fig.  12.3,  incorporating  many  of  the  improvements 
reported  on  in  Project  B.  This  picture,  it. should  be  noted,  is  not  pro- 
duced by  the  JOIN  program,  but  instead  represents  a slight  reduction  in 
resolution  from  the  pictures  of  Fig.  12.1  and  12.2.  The  process  of 
breaking  the  picture  is  no  longer  necessary  since  the  improved  display 
devices  at  JPL  can  handle  pictures  of  the  larger  1878  x 2012  size.  We 
expect  that  an  1878  x 17,000  picture  can  now  be  reproduced  at  JPL/IPL, 
thus  making  it  possible  to  reproduce  a three  framelet  wide  join  area. 

In  case  the  interested  reader  desires  a comparison  with  GRE  reproduc- 
tion, the  NASA-LRC  number  containing' this  area  is  in-15411^.  Our 
picture  is  actually  a mirror  image  of  the  GRE  picture.  We  have  photographed 
and  reproduced  this  area  for  the  convenience  of  the  reader  in  Fig.  12.4. 
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FIGURE  12.1 
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FIGURE  12.2 


m»Ih 
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FIGURE  12.3 
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FIGURE  12.4 
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Part  II  TIME  AND  COST  ESTIMATES  FOR  JOINING  A SERIES  OF  LUNAR  OKBITER  FRAMELETS 
1.  General  Discussion 

In  forming  the  following  estimates  of  time  and  cost  in  joining  a 
series  of  LO  framelets  we  make  the  following  assumptions i 

1.1  The  D log  E data  and  correction  factors  have  been  obtained  for 
this  particular  series  of  LO  framelets  in  the  format  required 
by  SKINNY  and  JOIN. 

1.2  All  framelets  to  be  joined  were  digitized  under  approximately 
the  same  conditions  of  clipping  and  zero  level  adjustments. 

1.3  Facilities  for  producing  the  digital  picture  made  by  JOIN 

* " / 

are  available. 

1.4  Ail  input  tapes  are  written  one  line  per  record. 

These  assumptions  are  reasonable  for  a production-type  job  of 
joining  LO  framelets  with  the  possible  exception  of  1.3.  In  addition, 
we  assume  the  operator  understands  the  operation  and  limitations  of 
SKINNY;  part  of  the  cost  is  in  fact  budgeted  to  checking  (by  looking  at 
LRE  output)  the  match  points  furnished  by  SKINNY,  and  to  key-punch  type 
operation  for  making  input  data  for  JOIN* 

In  our  problem  (a  test  problem)  -9  we  had  to  find  new  D log  E data  and 
correction  factors  (as  discussed  in  Project  BO,  aso  that  assumption  1.1 
was  false  iii  our  case.0  However i this  work,  once  completed,  need  not  be 
repeated  for  larger  quantities  of  LO  data.  Assumption  1.2  was  valid  for 
our  data.  Assumption  1.3  was  not,  and  our  joined  pictures  were  necessarily 
broken  in  half  before  they  could  be  displayed.  Assumption  1.4  was  also 
false;  if  it  is  not  made,  add  the  time  taken  to  run  a program  which  takes 
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2.  Time  Estimate  Budget,  9 -Chit  Area 


OPERATION 

COMPUTER  TIME,  1108 
min.  sec. 

MAN-HOURS 

Prepare  input  tape  numbers  and 
locate  all  software  for  run 
of  job. 

1 

Run  program  LRE 

2 0 

0.2 

Run  program  SKINNY 

2 30 

0.1 

Interpret  results  of  SKINNY, 
prepare  data  for  JOIN 

3 

Run  program  JOIN 

10  50 

0.1. 

Check  results  of  JOIN, 

' 

1.6 

prepare  description  of 
tape  and  letter  for 
sending  to  JPL  for 
display 


Total  estimate,  9 chit 
area,  no  filteming. 


- 15  min  20  sec 


5 hours 


Y' 


TABLE  2.1 
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3.  Time  Estimate  Budget,  Three  Framelet  Area 


OPERATION 

COMPUTER  TIME,  1108 
min.  sec. 

MAN-HOURS 

Prepare  input  tape  numbers 
and  locate  all  software 
for  run 

1 

Run  program  LRE 

6 

40 

0.2 

Run  program  SKINNY 

9 

50 

0.1 

Interpret  results  of  SKINNY, 
prepare  data  for  JOIN 

6 

Run  program  JOIN 

70 

30 

0.1 

Check  results  of  JOIN,  2,6 

prepare  description  of 

tapes  and  letter  for 

sending  to  JPL  for 

display 


Total  estimate,  three 
framelet  area,  no 
f ilterning. 


1 hr.'  17  min. 


v 


10  hours 


TABLE  3.1  TIME  ESTIMATE,  3 FRAMELET  (17,000  lines)  AREA* 
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the. same  time  as  LRE  to  rev/rite  the  SEDIT  tapes  one  line  per  record. 

4.  Conclusions,  Time  and  Cost  Estimates 

It  seems  reasonable  to  postulate  a formula  of  the  form 
C = an  + b for  the  cost  of  doing  n lines,  three  framelets  wide.  In  the 
nine  chit  area,  n = 2112.  In  the  example  of  three  framelets,  17,000  lines, 
n =17,000.’  Using  the  estimates  computer  time  at  $130 /hour  and  man  time 
at  $15 /hour  (including  overhead),  we  obtain  the  following  cost  estimates: 

2012  lines  $108.22 

17,000  lines  $316.83 

In  preparing  longer  runs  of  more  data,  it  would  be  worth  the  cost  to 
assign  a specialist  to  run  the  jon  (thereby  lowering  the  contribution  in 
man-hour  cost).  After  training,  we  estimate  that  a large  number  of  framelets 
could  be  joined  for  a smaller  cost  as  follows: 

" 2012  lines  $58.00 

17,000  lines  $216.00 

We  feel  these  numbers  represent  an  irreducible  minimum  in  cost  of  joining 
three  LO  framelets,  leading  to  a cost  vs  number  of  lines  graph  as  indicated 
in  Figure  4.1.  We  wish  to  emphise,  however,  that  the  lower  estimate  can 
be  attained,  only  on  a production  basis.  Our  general  estimate  gives  the 
upper  estimate  as  $75  plus  $14  per  thousand  lines  and  the  lower  estimate 

V' 

$35  plus  $10.50  per  thousand  lines  for  joining  three  framelets. 


Number  of  lines  to  be  joined,  thousands. 
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Part  III  Generalizations 

The  main  problem  in  Project  A turned  out  to  be  the  lack  of  un- 
distorted overlap  between  adjacent  framelets.  Therefore,  almost  our 
entire  effort  was  spent  trying  to  find  match  points  for  adjacent 
framelets,  via  program  SKINNY,  and  to  join  three  framelet  wide  areas 
using  JOIN.  Neither  of  these  programs  were  designed  to  make  use  of  the 
preprinted  pattern  of  reseau  marks.  This  is  fortunate,  for  the  non- 
linearity in  the  verticle  direction  turned  out  to  be  of  such  a high 
frequency  that  the  reseau  pattern  has  too  wide  a spacing  to  be  of  any  use 
in  the  JOIN  program;  neither  can  it  be  relied  on  to  locate  match  points. 
However,  once  the  high  frequency  deviation  has  been  removed  in  the 
relative  sense  (i.e.,  between  adjacent  framelets),  the  possibility  exists 
that  the  reseau  pattern  can  be  used  to  correct  at  least  the  main  re- 
maining sources  of  distortion.  For  this  reason,  an  algorithm  was 
developed  which  locates  the  exact  center  of  a reseau  mark  in  a given 
area  (or,  alternatly,  the  "exact  center"  is  defined  to  be  the  point 
located  by  this  (template  matching)  algorithm) . Section  1 of  Part  III 
is  the  documentation  of  test  program  RESEAU.  Section  2 outlines  how  the 
reseau  marks  can  be  used  to  build  a picture  of  large  areas  (say  3 
framelets  of  15,000  lines)  on  a master  mesh  from  the  output  of  JOIN. 


COMPUTER  PROGRAM  DOCUMENTATION 
■Locate  Reseau  Marks 
PROGRAM  RESEAU 
Project  A 


by 

Jack  Bryant 
and 

R.  L.  Wendt 
Prepared  by 

Applied  Scientific  Research,  Inc. 
Houston,  Texas 
Under  Contract  NAS  9-10577 
for 

MAPPING  SCIENCES  DIVISION 
National  Aeronautics  and  Space  Administration 

V- 

Manned  Spacecraft  Center 
Houston,  Texas 


September,  1971 
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1.  DOCUMENTATION  OF  RESEAU 

1.1  INTRODUCTION 

The  algorithm  reported  on  here  is  a combination  of  an  elementary 
template  match  and  clipping  in  which  the  template  was' determined  by 
observation  of  actual  LO  data.  We  averaged  (on  the  HP  9100B)  actual 
reseau  marks  found  in  the  output  of  a generalization  of  program  LRE  when 
applied  to  framelet  027.  It  turns  out  that  the  Reseau  pattern  is  present 
in  both  the  edges  of  framelet  027.  We  then,  to  save  computation  time, 
converted  the  algorithm  into  a three  value  one  (involving  only  1,  0 and 
-1)  and  wrote  the  programs  to  perform  the  convolution  by  DO-loop  sums. 
This  resulted  in  a very  fast  algorithm  for  a template  match  of  thin  size. 
Fig.  1.1.1  gives  values  of  the  template  used.  Experimentation  indicated 
a large  improvement  in  performance  could  be  obtained  by  clipping  the 
data  away  from  the  test  site  by  taking  the  minimum  of  the  data  point  and 
10.  This  gives  a detection  threshold  of  approximately  300;  that  is,  if 
the  value  given  by  the  algorithm  is  less  than  300,  the  hypothesis  that 
there  is  a reseau  mark  between  R0W1,  R0W2-C0L1,  C0L2  should  be  rejected. 
Without  clipping,  the  template  match  failed  when  tested  in  an  area  with 
a small  but  distinct  crater  of  about  10  meters  diameter,  owing  to  the 
fact  that  the  black  part  of  the  crater  made  a greater  contribution  to  the 
sum  than  it  should  have.  v 

1.2  PROGRAM  DESCRIPTION  - 

1.2.1  GENERAL  DESCRIPTION  OF  PROGRAM 

The  program  skips  over  the  header  array  on  the  input  tape.  The 
number  of  lines  (at  one  line  per  record)  of  data  to  be  skipped  over  to 
get  to  the  approximate  area  of  the  reseau  mark  is  computed  and  the  input 
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NOTE:  All  values  1 were  applied  with  clipping  by  10  (giving  a nonlinear 
template  match  algorithm) . Values  -i  and  -2  were  applied  without  clipping. 


Figure  1.1.1.  Template  Values,  RESEAU 
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tape  is  advanced.  The  number  of  lines  of  data  to  be  read  is  determined, 
the  tape  is  read,  the  data  unpacked  and  stored  in.  A.  The  convolution 
(with  clipping)  A*M  (where  M is  the  template  match)  is  performed  over 
the  area  described  by  R0W1,  R0W2,  C0L1,  C0L2  as  M varies  over  A.  (The 
actual  filter  M is  only  implicitly  defined.)  The  maximum  of  the 
convolutions  is  recorded  as  well  as  the  row  and  column  coordinates.  At 
the  end  of  the  process  the  coordinates  of  the  reseau  mark  are  printed 
and  the  time  the  algorithm  used  in  finding  the  reseau  mark  is  printed 
also,  along  with  the  value  of  the  maximum. 

1.2.2  GENERAL  FLOW  CHART 
See  Fig.  1.2. 2.1 

1.2.3  TECHNICAL  DESCRIPTION 

The  algorithm  maximizes  the  following  function  C(I,  J) , where  I and 
J vary  over  R0W1,  R0W2  and  C0L1,  C0L2 

C(I,  J)  =i=Jg  j!g  MAX0(A(I  + i,  J = j),  10) 

_4  6 

+ jTg  jEg  MAX0(A(I  + i,  J + j),  10) 

8-3 

+ ^4  i=r6  MAX0(A(I  + i,  J + j),  10) 

8 6 

+ i|4  MAX0(A(I  + i,  J + j),  10) 

16 

-s  .1  , . £,  A(I  + 1,  J + j) 
i=-l.  j=-6  . ’ 

~ il_8  XlAil  + J + j)’ 
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FIGURE  1.2. 2.1  GENERAL  FLOW  CHART,  RESEAU 


o 


FIGURE  1.2. 2.1  GENERAL  FLOW  CHART,  RESEAU 
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FIGURE  1.3. 2.1  DECK  SETUP  - RESEAU  (UNIVAC  1108) 
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1.3  USAGE 

1.3.1  Input  Description 

1.3. 1.1  Card  inputt  When  used  with  only  one  input  reel,  the  program 
requires  ROW  1,  ROW  2,  COL  1,  COL  2 to  be  read  in  FOBMAT  (.415).  Various 
versions  of  the  program  exist  which  also  use  multiple  reel  assignments, 
simply  putting  the  entire  program  in  a big  loop  with  the  number  of  reels 
and  the  number  of  files  per  reel  needed  read  in  as  data  cards.  The 
program  documented  here  is  the  basic  one. 

1.3. 1.2.  Tape  input:  data  tapes  as  made  for  JOIN  by  MRGNDE. 

1.3.2  PROGRAM  RUN  PREPARATION 

See  Figure  1.3. 2.1  for  card  deck  setup.  The  only  subroutine 

/ 

required  in  UNPACK. 

1.3.3.  OUTPUT  DESCRIPTION 

The  time  (in  msec.)  , max,  and  row  and  col  index  of  the  max  will  be 
printed  out.  No  other  output  is  furnished. 

1.4  EXECUTION  CHARACTERISTICS 

1.4.1  Restrictors:  The  algorithm  will  not  locate  a reseau  mark  too 
near  the  edge;  in  particular,  tested  center  values  must  have  row  index 

>.  9 (with  similar  restrictions  on  the  upper  limit)  and  col  index  between 

7 and  630. 

1.4.2.  The  running  time  depends  on  the  size  to  be  tested.  In  most  cases, 
the  actual  execution  will  be  mostly  reading  tape,  so  that  about  two 
minutes  1108  (or  1106)  time  will  be  required. 

1.4.3  Accuracy /Validity : tests  (using  program  SNIP)  perfomed  confirm 
that  the  algorithm  (with  clipping)  can  be  used  as  a detector  to  check  if 
any  reseau  marks  are  near,  as  well  as  to  locate  the  center  of  one 
present.  Also,  all  reseau  marks  on  2068  were  located  (taking  2 min  59  sec 
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with  three  reels  of  tape  being  partially  read)  and  printed  out  in  a 
generalized  version  of  this  program,  this  work  being  done  before  the 
clipping  was  introduced.  It  is  not  hard  to  see  how  all  reseau  marks  for 
any  framelet  could  be  located  and  printed  at  tape  read  time  using  data 
in  the  header,  although  this  work  has  not  been  done.  So  far  as  we  are 
able  to  determine,  the  algorithm  accurately  locates  all  reseau  marks. 

1.5  SYMBOL  DEFINITION  TABLE  ..  . 1 

See  Table  1.5.1.  . 

1.6.  DETAILED  FLOW  CHART 


See  Figure  1.6.1. 
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IBUF  An  array  which  is  used  in  reading  in  data, 

B An  array  used  in  unpacking  data. 

A A double  subscripted  array. over  which  the  match  filter 

varies  in  attempting  to  maximize  a convalution  and  thus 
finding  a RESEAU  mark. 

ROW  1,  ROW  2 Approximate  coordinates  of  where  a Reseau  mark  may  be. 

COL  1,  COL  2 Reseau  mark  may  be. 

WREC  The  number  of  lines  (records)  of  the  input  tape  which 

must  be  skipped  to  get  to  the  data  of  the  area  described 
by  ROW  1,  ROW  2,  COL  1,  COL  2. 

INDX  The  number  of  lines  (records)  which  must  be  read  ie 

described  by  ROW  1,  ROW  2,  COL  1,  COL  2. 

IL,  IU  The  limits  of  the  array  A which  accepts  unpacked  data 

with  respect  to  the  columns 

MAX  . The  value  of  the  convalution  at  coordinates  10,  JO  of 
the  Reseau  mark. 

II,  12,  Jl,  J2  The  limits  on  sums  used  in  performing  the  convalution. 

K,  L Indices  for  A so  that  the  convalution  being  performed  over 

limits  II,  12,  Jl,  J2  remains  within  A. 

ISUM  The  value  of  the  convalution  at  each  point  of  interest. 

KTR  A countve  which  is  used  in  defining  II,  12,  Jl,  J2  as 

each  of  the  sums  of  the  convalution  are  obtained. 

The  row  and  column  of  the  Reseau  mark  i.e.  where  the 
convalution  is  maximal.  10,  JO  defines  the  center  of 
the  Reseau  mark. 

v 

The  time  in  milliseconds  for  the  algorithm  to  find  the 
Reseau  mark. 


10,  JO 


ITIME 


TABLE  1.5.1.  DESCRIPTION  OF  PROGRAM  VARIABLES  - RESEAU 
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FIGURE  1.6.1  DETAILED  FLOW  CHART  - RE  St  AO 
(CONTINUED) 


ITIME 


o 


FIGURE  1. 


-.1  DETAILED  FLOW  CHART  - RESEAU  (CONT') 
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2.  Use  of  preprinted  reseau  pattern  in  large-scale  corrections 

The  information  immediately  following  is  taken  in  part  from  the 
callibration  data  available  to  us  on  LO  III. 

The  spacecraft  film  used  in  Lunar  Orbiter  III  was  preprinted  with 
a pattern  of  reseau  marks.  These  marks  were  pre-exposed  on  the  film  at 
the  time  the  edge  data  printing  was  accomplished.  The  marks  were  formed 
by  a double  row  of  cross-shaped  apertures  in  a bar  extending  across  the 
width  of  the  70mm  film.  As  the  film  was  moved  beneath  at  a constant 
velocity,  a flashtube  was  fired  at  constant  intervals  to  produce  the 
pattern  at  equal  spacing. 

A specimen  of  the  spacecraft  film  was  processed,  and  the  reseau 
pattern  was  measured  in  a comparator.  In  performing  the  measurements, 
the  film  was  aligned  with  the  edge  data  parallel  to  the  x axis  of  the 
measuring  stage.  All  reseau  marks  were  measured  for  each  of  a large 
number  of  consecutive  cycles.  The  y coordinates  were  averaged  for  a 
given  mark  as  it  appeared  in  all  cycles.  The  x coordinates  of  all 
reseau  marks  within  a single  cycle  were  averaged  to  establish  a point 
of  reference  for  the  flash  exposure.  The  individual  x coordinates  were 
compared  to  the  mean  values  for  each  cycle  to  establish  a point  of 
reference  for  the  flash  exposure.  The  individual  x coordinates  were 
compared  to  the  mean  values  for  eachv  cycle  to  establish  deviations  from 
a straight-line  pattern.  These  x increments  as  well  as  the  measured  y 
coordinates  were  combined  to  establish  Table  2.1. 

Reseau  points  are  numbered  increasing  away  from  the  edge  data. 

The  x axis  is  directed  (positive)  toward  increasing  edge  data  numbers. 

By  comparing  the  mean  values  of  the  x coordinates  of  reseau  marks  in  a 
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given  cycle  with  the  mean  values  for  succeeding  cycles,  it  was 
determined  that  the  pattern  was  prepeated  every  2,269mm. 

The  reseau  marks  appear  in  the  edge  data  of  027  (FR  154  H,  LO  III) 
and  we  (for  another  purpose)  printed  the  edges  (using  ad  hoc  program 
PMEF) . By  observation  of  this  data,  we  arrive  at  the  information 
contained  in  Table  2.2.  The  point  numbers  correspond  to  the  odd  point 
numbers  in  Table  2.2.  Using  our  best  estimate  of  distance  between  rows 
of  0.00360487mm  (which  we  round  to  0.003605  for  use  in  other  programs), 
we  are  able,  to  get  the  deviation  from  the  ideal. values  of  the  row 
numbers  of  the  reseau  marks.  (The  estimate  0.00360487mm  between  rows 
minimizes  the  sum  of  the  squares  of  the  deviations.)  We  find  an 
average  absolute  deviation  of  0.009182mm,  or  about  2 or  3 rows,  which 
docs  not  contradict  our  previous  findings,  with  a peak  deviation  of 
over  5 rows . 

Using  also  the  even-numbered  reseau  marks,  it  would  be  relatively 

easy  to  reconstruct  a corrected  version  of  three  framelets  (15,000  lines) 

joined,  since  our  measurements  disclosed  the  fact  that  no  rotation  was 

present  in  the  data,  and  since  the  horizontal  (x)  direction  location 

was  exactly  (+  2 digital  elements  at  most)  as  specified.  We  blame  the 

x deviation  on  the  jitter  in  the  digitizer,  and  assert  that  nothing  can 

v 

be  done  about  it  because  of  its  very  high  frequency.  The  basic  program 
to  perform  this  correction  is  already  present  in  the  JOIN  program, 
which  consists  mathematically  of  merely  linearly  stretching  or  compressing 
the  rows  between  control  points  (easily  machine  recognizable)  as  specified. 
In  the  JOIN  program  itself,  we  took  a "standard"  the  left-most  framelet 
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(MILLIMETERS  ON  FILM) 


Point  No. 

X 

_ _ y _ . 

x Std  Devatn 

y Std  Devatn 

1 

0.000 

0.000 

0.003 

0.002 

2 

1.404 

.2.355 

0.002 

~ 0.002 

3 

0.009 

4.658 

0.002 

0.003 

4 

1.404 

6.997 

0.001 

0.003 

5 

0.011 

9.297 

0.003 

0.003 

6 

• 1.411 

11.656 

0.002 

0.002 

7 . 

0.016 

13.959 

0.002 

0.002 

8 

1.414 

16.363 

0.002 

0.003 

9 

.0.021 

18.667 

0.002 

0.002 

10 

1.418 

21.044 

0.002 

0.002 

11 

0.025 

23.343 

0.002 

0.002 

12 

1.422 

25.702 

0.002 

0.003 

13 

0.029 

28.005 

0.002 

0.002 

14 

1.429 

30.279 

0.002 

0.003 

15 

0.033 

32.581 

0.002 

0.002 

16 

1.429 

34.926 

0.002 

0.002 

17 

0.036 

37.227 

0.001 

0.003 

18 

1.437 

39.607 

0.002 

0.002 

19 

0.040 

41.909 

0.003 

0.002 

20 

1.442 

44.262 

0.003 

0.002 

21 

0.048 

46.567 

0.002 

0.003 

22 

1.444 

49.030 

0.002 

0.003 

23 

0.050 

51.331 

0.001 

0.003 

TABLE  2.1  RESEAU  PATTERN,  LO  III 


POINT  NO.  . 

ROW  NO, 

ACTUAL  Y VALUE 

IDEAL  Y VALUE 

DEVATN 

1 

14850 

0.000 

0.000 

. 0.000 

3 

13555 

4.668 

4.658 

0.010 

5 

12268 

9.308 

9.297 

0.011 

7 

10979 

13.954 

13.959 

0.005 

9 

• 9675 

18.655 

18.667 

-0.012 

11 

8377 

23.334 

23.343 

-0.009 

13 

7079 

28.013 

28.005 

0.008 

15 

5810 

32.588 

32.581 

0.007 

17 

5810 

32.588 

32.581 

0.000 

19 

3225 

41.907 

41.909 

-0.002 

21 

1937 

46.550 

46.567 

-0.017 

23 

605 

51.531 

51.331 

0.020 

TABLE  2.2  ROW  NUMBERS  AND  DEVIATION,  027 
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and  joined  the  other  two  it  it,  making  a picture  with  no  relative 
deviations.  A second  pass,  using  a relatively  simple  ad  hoc  program, 
could  correct  the  joined  picture  of  15,000  lines  so  that  the  reseau 
marks  were  as  specified  in  framelet  027.  The  main  reason  this  program 
was  not  written  is  that  there  was  no  display  device  available  to 
display  the  joined  picture  even  if  we  could  correct  the  picture  to 
adjust  the  reseau  pattern  to  be  as  specified.  • _ — 

Even  if  this  work  were  carried  out,  it  is  probably  that  the  basic 
nonlinearity  in  the  y-direction  is  too  high  frequency  to  be  completely 

o 

removable.  This  is  particularily  suggested  by  looking  at  the  last 

two  points  in  Table  2.2  (with  deviation  of  -4  and  +5  rows  from  standard). 

3.  SKINNY  on  framelets 

In  order  to  check  the  operation  of  the  match  locating  algorithm 
SKINNY,  we  devised  a very  severe  test  in  which  the  algorithm  was  applied 
to  17,000  line  framelets.  Recall  that  SKINNY  on  2068  lines  read  all 
the  data  from  the  tapes  into  a buffer  C dimensional  2068  x 8.  If  we 
were  to  try  to  use  the  same  approach  on  17,000  line  framelets,  we  would 
exceed  the  core  limits  of  the  1108  (by  a large  amount);  in  addition,  we 
would  waste  some  time  which  might  possibly  be  saved  by  double  buffering 
on  input.  Since  we  were  more  interested  in  testing  SKINNY  than  in 
matching  on  a production  basis,  we  devised  the  following  test:  Run 

SKINNY  on  1500  line  batches  (i.e.,  change  the  number  2068  to  1500)  and, 
after  initial  match  is  found,  advance  to  the  center  of  the  next  1500 
line  batch,  keeping  the  same  column  match  as  before  and  using  LKFR  to 
find  new  candidate  areas.  The  obvious  flaw  here  is  that  interesting 
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areas  broken  by  the  1500  line  batch  limits  are  not  available  for  matching 
at  all,  because  LKFR  cannot  "see11  them.  The  remedy  is  to  treat  the 
1500  line  array  as  a circular  buffer  and  always  "rotate"  the  buffer 
by  the  amount  needed  to  move  the  most  recently  found  match-point  just 
"off"  the  buffer,  using  LKFR  over  the  next  1500  line  buffer  and  SKINNY 
to  move  the  match  algorithm  up  and  down  as  usual.  (It  is  uncanny  how 
many  interesting  match  points  (which  would  have  been  found  by  LKFR  with 
spectacular  matches)  lie  exactly  at  1500  line  intervals.)  Nevertheless, 
SKINNY  worked  on  full  framelets,  finding  the  same  column  match  consistently 
as  on  2068,  and  finding  in  all  5,  5,  4,  4,  4,  5,  4,  5,  6,  5 and  1 match 
points  (over  the  1500  line  batches)  for  a total  of  48  match  points. 

The  first  match  point  actually  found  (with  the  most  interesting  area) 
was  suprisingly  not  on  the  edge  at  all,  but  in  the  center  of  the  first 
1500  line  batch.  (We  expected  just  the  opposite,  that  LKFR  would  like 
the  high  contrast  edge;  however,  apparently  it  likes  a spectacular  crater 
around  line  820.  A look  at  the  printout  of  this  area  confirms  that  the 
area  first  found  by  LKFR  is  very  rough  and  full  of  detail.)  With  the 
minor  modifications  suggested,  we  expect  SKINNY  could  be  used  on  full 
framelets  with  approximately  twice  the  speed  the  present  SKINNY  operates. 
This  work  should  take  an  expert  programmer  about  40  man  hours  to  complete, 
fully  generalizing  SKINNY  to  operatevon  full  framelets. 

For  reference  and  study  of  the  nonlinearity  of  the  mechanical  scan, 
we  summarize  the  match  points  found  by  SKINNY  on  full  framelets  in 
Table  3.1.  We  aligned  by  hand  the  edges  so  that  1-1  was  a perfect  row 


match. 


242 


028  ROW 

027  ROW 

028  ROW 

027  ROW 

183 

181 

8208 

8221 

490 

483 

8316 

8324 

822 

820 

8617 

8622 

1082 

1084 

9332 

9341 

1312 

1319 

9579 

9587 

1667 

1676 

9773 

9779 

1895 

1903 

10140 

10149 

2000 

2010 

10825 

10830 

2364 

2373 

11084 

11085 

2590 

2601 

11164 

11167 

3168 

3164 

11524 

11525 

3454 

3475 

11898 

11894 

3827 

3845 

12075 

12076 

4171 

4186 

12434 

12434 

4669 

4679 

12705 

12705 

5013 

5028 

12883 

12885 

5388 

5398 

13049 

13053 

5740 

5755 

13286 

13289 

6317 

6336 

13779 

13783 

6671 

6690 

14031 

14039 

6899 

6921 

14396 

14409 

7125 

7152 

14488 

' 14499 

7678 

7700 

14854 

14869 

7892 

7909 

15291 

15311 

Table  3.1  Match  points  found  by  SKINNY,  028-027  ' 
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PART  I D LOG  E CORRECTIONS 

INTRODUCTION  The  problem  of  using  photographic  data  in  photo- 
grammetric  problems  is  complicated  by  the  fact  that  neither  the 
density  D nor  transmittance  T « is  linearly  related  to  the 
exposure  values  (which  are,  of  course,  linearly  related  to  the 
brightness  of  the  scene,  ignoring  lens  distortion  effects).  Since 
photometry  utilizes  the  brightness  of  the  scene,  one  must  convert 
the  data,  given  as  transmittances,  to  (e.  g.)  exposure  values, 
from  which  the  scene  brightness  can  be  found  knowing  the  properties 
of  the  camera  and  lens.  The  LO  analysis  program  utilizes  a table 
look-up  method  to  form  the  corrections.  That  is,  after  digitization 
the  numbers  are  converted  from  transmittances  to  exposure  values 
by  looking  in  a table  for  the  converted  number.  The  purpose  of 
this  part  of  Project  B is  to  attempt  improvement  of  the  existing 
"D  log  E curve",  i.e.,  the  values  in  the  table.  Our  key  findings: 

1.  Spectacular  improvements,  are  possible. 

2.  Operationally,  the  making  of  a new  D log  E curve 

is  not  usually  necessary  with  different  digitizations, 
even  with  clipping. 

3.  The  making  of  a new  D log  E curve  should  be  replaced 
by  changes  in  the  analysis  program  of  the  exposure 
values  in  meter-candle-seconds  the  analysis  is  to 
take  for  0 and  63.  This  does  not  affect  the  D log  E 
curve,  since  in  the  range  of  LO  data  we  are  working 
with  the  D log  E curve  is  approximately  linear. 

There  is  another  problem  which  complicates  our  particular  problem. 
That  is  that  the  gray  shade  calibration  data  (which  one  should  use  to 
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set  the  point  values  of  the  D log  E table)  is  (a)  not  trivial  to 
address  perfectly,  (b)  rendered  practically  useless  at  times  by 
clipping,  and,  (c)  effected  by  the  line  scan  signature. 

/ 

Since  the  problem  of  the  line  scan  signature  must  be  solved 
to  do  both  Projects  A and  B (the  algorithm  in  Project  A to  locate 
match  points  was  partly  photometric) , we  begin  by  discussion  of 
the  improved  correction  factors. 

1.  CORRECTION  FACTORS 

In  order  to  obtain  correction  factors  to  partly  remove  the 
line  scan  signature,  we  perform  (operationally)  the  following  steps: 

1.1  Accumulate  LO  data  from  the  mission  and  (if  possible)  digitization, 
and  use  in  a program  like  CAS3  to  obtain  averages  of  long  columns 

of  actual  LO  data. 

1.2  Remove  the  drummark  areas  and  any  "scratches"  noted  and  apply 
a smoothing  filter  like  CFAC  to  smooth  the  column  averages. 

1.3  Replace  any  "scratches"  noted  and  use  these  correction  factors 
(after  normalization  and  a division)  to  remove  the  line  scan  signature. 

Our  data  was  obtained  from  either 

(1)  About  three  chits  each  from  three  framelets  028,  027,  and 
025  of  LO  III,  frame  154H;  or 

(2)  The  three  complete  framelets  028,  027  and  025  from  the 
same  area. 

Very  little  difference  was  found  in  the  smoothed  correction  factors 
(although  substantial  differences  were  noted  in  the  unsmoothed  ones) 


between  2068  rows  and  a full  framelet  (about  15,500  rows).  The 
routine  reported  on  next  takes  the  column  averages  for  use  in  the 
smoothing  program.  We  then  furnish  documentation  (in  Section  3) 
of  the  smoothing  routine  we  found  to  be  a substantial  improvement 
bn  the  edges  of  the  framelets,  .necessary  for  use  in  the  algorithm 
SKINNY  reported  on  in  Project  A. 
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2.  COMPUTER  PROGRAM  DOCUMENTATION  - CAS  3 (Column  Averages  Surveyor  3) 

2.1  PURPOSE /METHOD 

The  program  supplies  column  averages  for  use  as  input  data  by  program 

CFAC. 

The  program  initializes  the  data  tape  by  spacing  over  the  header 
and  notch  data.  The  framelet  data  is  read  and  the  elements  of  each 
column  are  summed  by  COLSUM  a line  at  a time.  A count  of  the  number  of 
lines  is  recorded  and  the  final  Siam  for  each  column  is  divided  by  the 
number  of  lines.  The  column  sums  are  plotted,  the  sums  are  written  on 
the  drum  and  the  process  is  repeated  for  the  remaining  framelets. 

The  drum  is  set  to  its  initial  address  and  the  average  of  the 
column  sums  is  obtained.  The  correction  factors  are  printed,  plotted 
and  punched  and  the  input  tape  is  rewound. 

2.2  USAGE 

22.1  INPUT  DESCRIPTION: 

The  edited  tape  from  LO  III  Surveyor  - 3 frame  154  H framelets 
028,  027,  025,  read  from  Unit  1. 

2.2.2  OUTPUT  DATA  FURNISHED 

Punched  cards  to  be  used  by  CFAC.  Film  output  from  4020. 

2.2.3  PROGRAM  RUN  PREPARATION 

2. 2. 3.1  Card  Deck  Setup 

See  Fig.  2.2. 3.1.1  for  the  deck  setup,  which  includes  the  required 


control  cards. 


Fig.  2. 2. 3. 1.1.  DECK  SETUP  (UNIVAC  1108)  CAS  3. 
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2.2. 3.2  Required  I/O  Devices 

The  program  uses  the  standard  FORTRAN  input  on  Unit  5 and  output 
from  Unit  6.  In  addition,  the  program  uses  NTRAN  read  statements  to 
read  the  chit  data  from  tape  on  Unit  1 and  NTRAN  to  handle  oneFH432 
drum  file.  The  plot  routines  occupy  one  FSTRN  track. 

2.2.3. 3 Subroutine  Requirements 

The  subroutine  COLSUM  is  required.  (It  is  in  addition  to  the 
furnished  system  subroutines  NTRAN,  GRIDIV  and  APLOTV.)  COLSUM  requires 
the  standard  LO  subroutine  UNPACK.  The  subroutine  COLSUM  is  described 
in  Section  2.4.3. 

2.2.4  EXECUTION  CHARACTERISTICS 

2.2.4. 1 Restrictions 

The  program  as  it  is  written  now  requires  a special  data  input 
format  (special  in  the  sense  that  only  one  tape  is  read,  on  which  there 
are  to  be  three  main  blocks  of  specially  edited  LO  data) . Obvious 
modifications  in  the  NTRAN  read  statements  allow  use  on  any  number  of 
framelets . 

2.2.4. 2 Storage  Requirements 

The  storage  requirement  for  the  code  is  5260.  The  data  takes 

o 

3,4770  locations.  System  plot  and  service  routines  take  about  15,000_ 

o 8 


locations. 
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2.2.4. 3 Run  Time  /.Lines 'of  Output  /Other  Output 

The  usual  difficulties  with  tape  dependent  jobs  affects  the  run 
time  here.  In  effect,  the  job  runs  at  tape  read  speed.  In  addition 
to  the  program  listing,  there  are  approximately  three  pages  of  output 
for  each  block  of  data  (ije.  subframelet)  used.  A film  strip  giving  a 
plot  of  the  unsmoothed  column  averages  for  each  framelet  and  overall 
should  accompany  the  output. 

2. 2. 4. 4 Accuracy  / Validity 

Since  exact  arithmetic  is  done  at  each  step  preceeding  the  divide, 
the  numbers  furnished  are  as  good  as  the  FORTRAN  divide.  It  may,  of 
course,  be  noted  that  certain  systematic  features  (such  as,  for  example, 
the  dark  edge  of  a large  crater  in  one  side  of  one  framelet)  would 
affect  the  validity  of  the  COLUMN  averages,  as  will  excessive  clipping. 

It  seems  unlikely  that  these  errors  are  significant  for  the  data  under 
consideration  here. 

2.3  GENERAL  FLOW  CHART 
See  Fig.  2.3.1 

2.4  REFERENCE  INFORMATION 

2.4.1  DETAILED  FLOW  CHART 

See  Fig.  2. 4.1.1  for  a detailed  flow  chart  for  CAS  3. 

2.4.2  DESCRIPTION  OF  VARIABLES 

See  Table  2.4.2. 1 for  a detailed  description  of  the  variable  in  CAS  3. 


2.4.3  DESCRIPTION  OF  SUBROUTINE  COLSUM 
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Fig.  2.3.1  GENERAL  FLOW  CHART  - CAS  3 
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Fig.  2.3.1  CONTINUED 
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Fig.  2.3.1  CONTINUED 
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Fig,  2. 4. 1.1  DETAILED  FLOW  CHART  - CAS  3 


22 


IBUF  - 
A - 
CS  - 


DUM  - 
X - 


Array  of  dimension  10000;  used  to  input  edited  data. 

Integer  array  of  dimension  636;  used  to  unpack  data. 

Array  of  dimension  636;  the  column  averages  or  unsmoothed 
correction  factors. 

Array  of  dimension  636;  a dummy  array. 

Array  of  dimension  636;  used  to  generate  abscissas. 


Table  2.4.2. 1 DESCRIPTION  OF  VARIABLES  - CAS  3 . 


SUBROUTINE  COLSUM 


IDENTIFICATION 

Name /Title 

Author/Date 

Organization 

Machine  Identification 

Source  Language 


- COLSUM  (Column  Sums) 

- R.  L.  Wendt,  September  1970 

- ASR 

- UNIVAC  1108 

- FORTRAN  V 


PURPOSE 

This  routine  sums  the  elements  of  the  framelet  down  the 
framelet  in  the  direction  of  increasing  row  numbers. 

USAGE 

Calling  Sequence 

CALL  COLSUM  (A,  CS,  JBUF(K)) 

where  A,  CS,  IBUF  are  as  in  the  main  program. 

In  COLSUM,  IBUF  is  called  C. 


DETAILED  FLOW  CHART 


See  Fig.  2. 4. 3.1  for  a detailed  flow  chart  of  COLSUM. 
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3.  COMPUTER  PROGRAM  DOCUMENTATION  - CFAC  (Correction  Factors) 

3.1  PROGRAM  DESCRIPTION 

3.1.1  GENERAL  DESCRIPTION 

The  program  initializes  all  parameters  and  sets  up  the  abscissa 
vector. for  APLOTV.  The  unsmoothed  correction  factors  are  read  in 

\ 

and  CF(1)  is  set  equal  to  CF(2) . The  first  element  of  the  digitized 
data  is  not  reliable  because  of  a digitizer  problem  so  setting  CF(1)  = 
CF(2)  helps  to  alleviate  this  problem.  The  unsmoothed  correction 
factors  are  plotted.  The  drummarks  are  removed  by  linear  interpolation. 
The  array  of  cosines  is  initialized  and  the  smoothing  process  begins 
by  performing  the  normalized  convolution  first  on  the  center  i.e. 
elements  from  II  to  12,  then  on  the  left  edge  of  the  framelets  i.e. 
elements  from  1 to  J2  and  lastly  on  right  edge  i.e.  elements  from 
13  to  636.  The  correction  factors  and  smoothed  correction  factors 
are  printed  and  the  smoothed  correction  factors  plotted.  The  smoothed 
correction  factors  are  normalized,  printed,  plotted  and  punched  for 
later  use. 

3.1.2  MATHEMATICAL  DESCRIPTION  OF  THE  FILTER 

Mathematically,  the  main  purpose  of  CFAC  is  to  apply  a normalized 
filter  to  the  unsmoothed  correction  factors.  Initially  in  the 
development  of  the  routine  CFAC,  a rectangular  filter  (in  the  real 
domain)  was  used.  This  filter  turned  out  to  ring  in  the  presence  of 
of  the  kind  of  noise  present  in  the  column  averages,  and, accordingly , 
was  replaced  by  the  cosine  squared  filter  used  in  the  present  CFAC. 

The  new  filter  shows  remarkably  little  tendency  to  ring,  with  the 
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resultant  correction  factors  being,  as  far  as  our  tests .have 
revealed,  much  better. 

The  cosine  squared  filter  here  is  described  as  follows: 

(for  the  particular  program  run  used  to  smooth  the  CAS3  correction 
factors) , 

Let  the  unsmoothed  correction  factors  be  u(l) , ...,  u(636).  The 
first  step  is  to  replace  u(l)  by  u(2) . The  drufnmark  areas  7,  8, 

9,  10,  11,  12  (and  624,  625,  626,  627,  628,  629)  are  replaced 
by  a linear  interpolation  of  the  adjacent  number  u(6)  and  u(13) 
(respectively  u(623)  and  u(630)).  The  program  then  proceeds  to 
apply  the  following  formula  giving  the  smoothed  correction  factors:  If 
s(l),  ...,  s(636)  is  the  array  of  smoothed  correction  factors, 
then 

1 n(i)  9 

s(i>  ' AfsT  j4(i)  C°S  i5°^  u<3+1> 

where 

n(i)  ? 

A(i)  = l cos  "lOCf  j 

j-A(i) 


and 

n(i)  = min  {i+49,  636} 

£(i)  = max  {i-49,  0}. 

This  has  the  effect  of  taking  care  of  the  edges  correctly  (at  least 
well  enough  so  that  SKINNY  and  operate  and  so  that  good  D log  E 
curves  can  be  made). 
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3.2  USAGE 

3.2.1  DESCRIPTION  OF  INPUT 

Data  cards  (unsmoothed  correction  factors)  from  program 
CAS3  or  equivalent. 

3.2.2  DESCRIPTION  OF  OUTPUT 

Card  output  - Punched  cards  containing  the  smoothed  correction 
factors. 

Printed  output  - The  unsmoothed  and  smoothed  correction  factors 
are  printed. 

Other  output  - Film  output  containing  plots  of  the  smoothed  and 
unsmoothed  correction  factors  is  also  furnished. 

3.2.3  RUN  PREPARATION 

For  a card  deck  setup  see  Figure  3. 2. 3.1.  Other  than  4020 
output,  no  special  Input/Output  devices  are. required.  No  subroutines 
are  used. 

3.2.4  EXECUTION  CHARACTERISTICS 
Restrictions  --J1  and  J2  < 318. 

Storage  requirements  - code,  6140;  data,  4033  • systems  plot 

O O' 

routines,  15,000g. 

Run  time  - About  30  seconds  (1108) 

Lines  output  - 15  pages 
Other  output  - 4020  Film  strip 

Accuracy/validity  - While  the  choice  of  parameters  Jl,  J2  largely 
determines  the  action  of  the  filter,  the  choice -Jl  = J2  = 49  results 


in  the  best  correction  factors  in  our  work. 
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Figure  3. 2. 3.1  DECK  SETUP  (UNIVAC  1108)  CFAC 


3.3  GENERAL  FLOW  CHART 


See  Figure  3,3.1  for  general  flow  chart. 


3.4  REFERENCE  INFORMATION 

See  Figure  3.^.1  for  a detailed  flow  chart. 

See  Table  3.4.2  for  a description  of  variables. 
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Figure  3.3.1  GENERAL  FLOW  CHART  - CFAC 


Figure  3.3.1  GENERAL  FLOW  CHART  - CFAC  (Continued) 
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Figure  3.3.1  GENERAL  FLOW  CHART  - CFAC  (Concluded) 


READ  (5, 1)  CF/ 


Figure  3.4 


CF(1)=CF(2) 


CALL 

GRIDIV 
0,0. ,636. ,4 
,1. , .5,0,0, —1 , 


.1  DETAILED  FLOW  CHART  - CFAC  (Continued) 


Figure  3.4.1  DETAILED  FLOW  CHART  - CFAC  (Continued) 
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Figure  3.4.1  DETAILED  FLOW  CHART  - CFAC  (Continued) 
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S1=0. 

s=o. 

11=636-1 


Figure  3.4.1  DETAILED  FLOW  CHART  - CFAC  (Continued) 
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Figure  3.4.1  DETAILED  FLOW  CHART  - CFAC  (Continued) 


K=J+II 


Figure  3.4.1  DETAILED  FLOW  CHART  - CFAC  (Continued) 
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Figure  3.4.1  DETAILED  FLOW  CHART  - CFAC  (Continued) 


S=S+SCF(I) 


Figure  3.4 


I 

J 


.1  DETAILED  FLOW  CHART  - CFAC  (Continued) 


SCF(I)=SCF(I)/S 


Y 


Figure  3.4.1  DETAILED  FLOW  CHART  - CFAC  (Continued) 


Figure  3.4.1  DETAILED  FLOW  CHART  - CFAC  (Continued) 
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CF  - Array  of  dimension  636;  the  elements  of  which  are 
unsmoothed  correction  factors. 

SCF  - Array  of  dimension  636;  the  smoothed  correction  factors. 

C - Array  of  dimension  99;  an  array  of  cosines. 

X - Array  of  dimension  636;  used  to  generate  abscissas  for 
APLOTV. 


Jl, J2  - Parameters  set  by  the  user;  variation  of  these  parameters 
determines  the  number  of  cosines  used  in  the  evolution 
CF*C  and  hence  the  "smoothness"  of  SCF. 

11,12,13  - Parameters  internally  set  by  the  program  once  Jl,  J2 

are  determined.  Used  in  determining  the  ranges  of  DO 
loops . 


PT  - Constant  equal  to  tt/(2*(J2+1)  ) . 

S,S1  - Variables  used  to  obtain  the  convolution  CF*C  , 

K - Index  which  determines  which  elements  of  C are  used 
in  the  convolution. 


Table  3.4.2  DESCRIPTION  OF  PROGRAM  VARIABLES  - CFAC 
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4 OBTAINING  GRAY  SHADE  CALIBRATION 

4.1  The  current  analysis  program  is  used  as  if  it  were  developed  with 
the  philosophy  that  changes  in  the  D log  E curve  will  be  used  to  account 
for  variations  in  the  mission,  digitization  and  lunar  area.  That  is, 
instead  of  redefining  the  limiting  values  the  analysis  procedure  is  to 
take  for  1 and  63  (the  range  of  six -bit  numbers  available,  zero  having 
a special  meaning),  the  D log  E curve  (really  table)  is  adjusted. 

Over  a very  wide  range  of  exposure  values,  the  D log  E curve  of  SO  243 
film  is  approximately  linear.  Thus  there  is  a good  argument  for  having 
one  D log  E curve  (which  is  made  using  data  furnished  by  the  manufacturer 
of  the  film) , with  differences  in  the  conditions  of  any  particular 
digitization  being  taken  into  account  by  redefinition  of  the  extreme 
values  1 and  63  (with  resulting  automatic  linear  adjustment  between) 
for  use  in  the  photometric  function. 

Whether  this  seemingly  better  program  is  carried  out  or  the 
current  operational  procedure  is  followed,  accurate  calibration  of 
the  meaning  of  each  value  in  the  data  in  (say)  meter-candle-seconds  (MCS) 
must  be  obtained.  The  only  calibration  available  for  use  at  the  time 
the  analog  tapes  are  digitized  is  the  edge  data. 

In  the  edge  data,  there  is  an  area  approximately  in  line  with  the 
framelet  numbers  containing  a nine  level  gray  scale  and  resolving  power 
charts.  Each  digitization  includes  enough  of  this  edge  data  to 
obtain  the  gray  scales.  By  manual  examination  of  the  printout  of 
these  areas,  one  is  able  to  locate  the  limits  of  the  gray  areas.  An 
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ad  hoc  program  was  written  to  apply  correction  factors  (obtained 
from  the  same  digitization)  and  then  calculate  averages  of  areas 
whose  coordinates  were  read  in  as  data.  While  it  would  have  been 
theoretically  trivial  to  locate  the  gray  shade  areas  on  the  computer 
and  automate  the  whole  procedure  (using  in  effect  the  same  elementary 
principles  of  pattern  recognition  used  to  locate  the  Reseau  marks 
as  outlined  in  the  report  on  Project  B,  Part  II),  the  practical 
problem  of  developing  the  software  to  accomplish  this,  coupled  with 
the  existence  of  more  interesting  and  pressing  problems  extant  at 
the  time,  precluded  the  development  of  working  algorithms  which  would 
have  automated  the  calculation  of  gray  shade  area  averages . 

4.2  In  order  to  illustrate  the  program  outlined  above,  we  shall  take 
a particular  pair  of  digitizations,  not  done  with  any  special  care, 
and  show  how  the  gray  shades  are  related  to  both  the  values  in  the  LO 
data  and  to  exposure  values,  visual  densities  and  readout 
transmissions.  (As  usual,  the  data  is  taken  from  LO  III,  HR  frame  154, 
complete  Framlets  028,  027,  025  or  2068  lines  of  Surveyer  3 area.) 

The  data  in  Table  4.2.1  was  collected  from  various  calibration  furnished 
on  the  LO  III  mission.  On  referring  to  Table  4.2.1,  we  may  conjecture 
that  at  most  three  of  the  gray  scales  are  likely  to  be  of  any  use  in 
forming  a realistic  D log  E curve;  indeed,  the  gray  scales  with 
numbers  5 or  less  (corresponding  to  darker  areas  on  a positive)  are 
useless  owing  to  clipping,  while  gray  scale  number  3 is  also  unlikely 
to  be  reliable  for  a similar  reason  (noise  added  in  transmission) . Between, 
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STEP 

NUMBER 

READOUT 

DENSITY 

READOUT 

TRANSMISSION 

EXPOSURE 

MCS 

GRAY  SCALE 
FRAMELET 

AVERAGES 

2068 

1 

- 

- 

0.0257 

** 

** 

2 

0.301 

0.500 

0.0398 

** 

** 

3 

0.321 

0.477 

0.0562 

** 

** 

4 

0.360 

0.437 

0.0708 

** 

** 

5 

0.446 

0.358 

0.1122 

61.5 

** 

6 

0.633 

0.233 

0.1778 

45.9 

45.1 

7 

0.879 

0.132 

0.2884 

23.3 

22.2 

8 

1.215 

0.061 

0.4571 

8.5 

7.6 

9 

1.347 

0.045 

0.6761 

3.1 

1.9 

Table  4.2.1  D LOG  E DATA;  **  = CLIPPED 
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the  relationship  between  gray  scale  average  and  readout  transmission 
should  be  linear;  this  is  verified  by  Fig,  4.2.2. 

To  account  for  clipping,  the  correct  solution  of  the  new  D log  E 
.curve  (table)  problem  seems  to  be  to  use  only  the  three  reliable  data 
points  and  extrapolate  a linear  regression  of  those  three  data  points. 
This  procedure  is  probably  best  carried  out  with  the  aid  of  a small 
programable  calculator,  using  standard  well-known  programs,  and  will 
not  be  reported  on  in  detail  here.  The  result  of  this  is 
summarized  in  Table  4.2.3. 

One  feature  of  Table  4.2.3  is  the  LO  numbers  in  the  range  64-80, 
which  in  fact  do  not  exist  owing  to  clipping.  The  computations 
necessary  to  obtain  the  other  numbers  furnished  these  additional 
numbers  free  of  additional  cost,  and  there  is  some  value  in  having 
an  idea  of  what  exposure  values  would  be  clipped  (are  clipped)  by 
the  digitization  process.  Based  on  an  examination  of  Table  4.2.3, 
the  D log  E curve  sketched  in  Fig.  4.2.4  was  developed.  For 
comparison,  a D log  E curve  in  use  at  the  time  this  work  was  being 
done  is  indicated. 

Note  that  the  assignment  of  0 and  63  (or  1 and  63  if  to  be  used 
in  the  analysis  program)  is  essentially  arbitrary,  and,  in  effect, 
can  result  in  further  clipping  of  the  data,  A further  advantage  of 
the  method  outlined  here  is  that  the  value  (in  MCS)  of  0 and  63 
(here  0.61  and  0.135  respectively)  can  be  determined  easily  for 
possible  use  in  photogrammetric  studies  of  the  linearized  data. 
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READOUT  TRANSMISSION 


Fig.  4.2.2  Transmission  vs.  L.O.  Numbers 


LUNAR  ORBITER  DATA  NUMBERS 
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LO  DATA 
NUMBER 

V 

LOG  E 

E 

SMOOTHED 

E 

0 

0.25 

** 

0.800 

0.800 

8 

0.61 

1.700 

0.501 

0.500 

16 

0.97 

1.512 

0.325 

0.330 

24 

1.32 

T.  422 

0.264 

0.264 

32 

1.68 

1. 348 

0.223 

0.233 

40 

2.03 

1.281 

0.191 

0.192 

48 

2.39 

1.221 

0,166 

0.167 

56 

2.74 

1.164 

0.146 

0.145 

64 

3.10 

1. 108 

0.128 

0.128 

72 

3.45 

1.042 

0.110 

0.112 

80 

3.81 

2.972 

0.094 

0.100 

Table  4.2.3  V - LOG  E CURVE  INTERPOLATION 


Fig.  4.2.4  Comparison  of  DlogE  Curves 


58 


4.3  In  addition  to  making  pictures  which  look  "better",  our  D log  E 
curve  has  been  compared  with  the  one  used  in  the  analysis  program 
furnished,  and  contour  maps  (which  have  been  reported  on  in  the  monthly 
reports)  indicate  a much  more  accurate  representation  of  the 
Surveyor  III  area.  For  reference,  these  reports  are  summarized  at 
this  time: 

For  the  comparison  of  D log  E curves,  see  Fig.  4.2.4;  contour 
maps  are  shown  in  Figs.  4.3.1,  4.3.2,  4.3.3  and  4.3.4.  Fig  4.3.1  shows 
a contour  map  made  using  the  LEC  correction  factors  and  D log  E curve. 
Figs.  4.3.2,  4.3.3  and  4.3.4  show  contour  maps  resulting  from  the  change 
in  correction  factors,  D log  E curve,  and  both,  respectively.  Fig.  4.3.4 
shows  our  best  contour  map  without  filtering.  In  Fig,  4.3.5,  we  show 
elevation  profiles  thru  the  contour  maps;  here 

a is  from  Fig.  4.3.1 

b is  from  Fig.  4.3.3  (new  correction  factors) 

c is  from  Fig.  4.3.4  (new  correction  factors 

and  new  D log  E) 

In  our  discussion  of  the  Project  C (Part  III  of  this  report),  we  return 
to  further  study  these  results. 
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Fig.  4.3.1.  LEG  Contour  Map 
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Fig.  4.3.2.  New  Correction  Factors 
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Fig.  4.3.4.  New  Correction  Factors  and  DlogE. 


PART  II  ENHANCEMENT  OF  DATA 


INTRODUCTION  The  LO  digitized  data  suffers  from  six  different  degra- 
dations. They  are:  (i)  geometric  distortion,  (ii)  spatial  frequency 

dependent  gain  variations,  (iii)  spatial  frequency  independent  gain 
variations,  (iv)  analog  noise  (added  in  transmission),  (v)  digitization 
(jitter,  quantization  and  clipping),  and  (vi)  film  granularity  noise. 
Most  of  these  vary  with  position  in  the  scene  being  reproduced.  Just 
how  many  of  the  factors  need  be  considered  depends  on  the  use  of  the 
data.  For  example,  in  Project  A (joining  framelets)  we  found  it 
necessary  to  consider  problems  introduced  by  degradation  (i)  (in  the 
readout  device  on  LO) , (iii)  (particularly  the  line  scan  signature) 
and  (v)  (jitter,  and,  to  fix  (iii),  clipping).  In  order  to  use  the 
data  for  Apollo  landing  site  selection,  it  has  been  possible  to  consider 
only  (i)  and  (iii);  even  with  imperfect  corrections,  passable  contour 
maps  are  possible. 

Part  II  is  particularly  concerned  with  (ii) , (iv) , (v)  and  (vi) . 

As  a review  of  the  problems  and  a sketch  of  some  of  the  mathematical 
techniques  we  used  in  this  part  of  Project  B,  we  include  first  part  of 
the  Master  of  Science  Thesis  MPosition  Invariant  Linear  Operations  in 
Image  Processing”  by  Terrence  Lee  Dillon  (Texas  A&M,  May,  1972;  directed 
by  Jack  Bryant).  This  thesis  is  mainly  expository,  and  includes  many 
examples  in  one  dimension  of  the  kind  of  analysis  we  are  attempting  in 
two  dimensions.  (The  numbering  in  this  section  departs  from  that 
adopted  elsewhere  in  the  report.) 
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1.  POSITION  INVARIANT  LINEAR  OPERATIONS  IN  IMAGE  PROCESSING 


INTRODUCTION  TO  PICTURE  FUNCTIONS 

Any  photograph  can  be  considered  as  a collection  of  data 
points  whose  value  changes  from  point  to  point.  If  we  confine  our 
attention  to  black  and  white  photographs  and  define  the  collection 
of  image  points  as  a two-dimensional  matrix,  we  can  refer  to  the 
photograph  as  a picture  function,  f,  whose  value  at  any  point, 
f(x,  y),  is  the  gray  level  of  the  picture  at  that  point.  Since  a 
physical  picture  is  of  finite  size,  we  can  suppose  that  the 
picture  function  is  non-zero  only  in  a bounded  region  and  zero 
elsewhere.  When  we  process  pictures  via  digital  computers,  we 
usually  want  to  regard  them  as  discrete  arrays  of  numbers,  i.e. 
matrices.  Such  a picture  function  will  be  called  a digital  picture 
function.  [1] 


One  problem  of  picture  processing  is  that  of  filtering,  i.e. 
separating  the  picture  as  cleanly  as  possible  from  the  contaminated 
combination  of  the  picture  plus  degradation  (noise) . Let  K be 
the  filtering  system  which  performs  some  mathematical  operation,  0, 
on  the  digital  picture  function  f(x,  y) , 

K 


fj(x,  y) 


fo<x»  y) 


Figure  1 IMAGE  FILTER  SYSTEM 
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where  fj(x,  y)  is  degraded  input,  and  f^x,  y)  is 

output.  The  first  problem  is  to  find  the  operator  0 
filter  system.  [2] 


filtered 
of  the 
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POSITION  INVARIANT  LINEAR  OPERATIONS 

Many  physically  meaningful  operations  performed  on  pictures 
have  the  following  property:  if  the  input  picture  is  moved,  then 
the  output  picture  is  also  moved  by  the  same  vector.  (Such 
operations  are  analogous  to  time  invariant  operators  of  electrical 
network  theory.)  In  this  section,  we  outline  some  of  the 
characteristics  of  operators  which  exhibit  this  and  other  properties 
and  give  some  examples. 

Position  Invariant  Operations. 

Let  X be  the  set  of  picture  functions  of  two  real  variables 

defined  on  the  entire  plane,  P.  Let  0:  X X where  0 

describes  an  operation  on  X . Let  T be  the  translation  of 

uv 

f(x,  y)  by  (u,  v)  defined  by, 

[Tuv(f)](x,  y)  = f(x  - u,  y - v) 

for  all  f e ^ and  (x,  y)  e P . (1-1) 

The  operation  0 is  said  to  be  a position  invariant  operation  on 

X if  0 commutes  with  every  T , [3] 

uv 

0[Tuv(f)3  = Tuv[0(f) ] . (1-2) 

It  is  easy  to  verify  that  the  translation  operation  itself  is 
position  invariant. 

In  general  geometrical  correction  operations  other  than 
translations  are  not  position  invariant.  For  example,  let 
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0 = be  defined  as  an  operation  which  changes  the  scale  of  f 

via. 

[Sog(f)](x,  y)  « f (ct(x,  y),  g(x,  y))  • (1-3) 

We  have 

SogtTuv(f)}(x»  y)  " tTuv(f)] («(x,  y),  e(x,  y)) 

* f(a(x,  y)  -u,  g (x,  y)  -v)  , (1-4) 

whereas , 

TuvtSae(f)1(x*  y)  “ tSa8(f)](x  " u»  y ' v) 

= f(a(x  - u,  y - v),  3(x  - u,  y - v))  (1-5) 

and  clearly  sagtTuv(f)3  t Tuv^Sa8^f^  for  a11  f ^unless 

a(x)  = x and  g(y)  = y) , (1-6) 

which  indicates  that  the  scaling  operation  is  not  position 
invariant. 

Point  Operations  and  Local  Operations. 

An  operation  is  called  a point  operation  if  the  gray  level  of 
the  output  picture  at  a point  depends  only  on  the  gray  level  of  the 
input  picture  at  that  point.  Point  operations  involve  modifying 
the  gray  level  of  each  point  to  improve  the  message  content  of  the 
picture.  Important  examples  include  [4] : 

1.)  Attenuation.  0(f(x,  y))=  kf(x,  y)  where  k is 

a real  number.  This  is  pointwise 
multiplication  of  the  gray  level  by 
a constant  to  uniformly  "brighten" 
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or  "dim"  a picture. 

2 

2. )  Intensification.  0(f(x,  y))  = (f(x,  y))  . Pointwise 

squaring  to  suppress  some  features 
and  enhance  others. 

3. )  Clipping.  0(f (x,  y))  = Gq  if  f(x,  y)  > Gq, 

0(f(x,  y))  ® f(x,  y)  if 
f (x,  y)  _<  G Pointwise  removal  of 

some  portion  of  the  picture  which 
contains  useless  or  undesirable 
information. 

An  operation  is  called  a local  operation  if  the  gray  level  at 
a point  in  the  output  picture  is  the  result  of  averaging  the  gray 
level  over  some  neighborhood  of  that  point  in  the  input  picture.  A 
local  operation  is  a smoothing  process  generally  used  to  suppress 
random  noise.  Some  examples  are  [5] : 

1. )  Simple  Averaging.  Replace  the  value  of  each  point 

by  the  average  of  the  values  over 
a neighborhood  of  the  point. 

2. )  Thresholding.  Replace  the  value  of  each  point 

by  the  average  in  some  neighbor- 
hood if  the  average  exceeds  the 
point  gray  level  by  more  than 


some  threshold. 
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Linear  Operations. 

An  operation  is  called  linear  if  the  principle  of  superposition 
holds  - i.e. 

0(af  + bg)  = a0(f)  + b0(g)  . (1-7) 

Clearly  translation  operators  are  linear.  As  we  shall  see,  linear 
operations  which  commute  with  the  translation  operators  are 
especially  easy  to  analyze.  [6] 

Physical  Processing  in  the  Lens-Film-Digital  System. 

Since  we  are  concerned  with  digital  pictures,  let  us  define 
our  image  sensing  system  as  being  a lens-film-digital  system.  The 
lens-film  system  is,  very  simply,  the  interaction  of  light  and 
photosensitive  paper;  however,  the  digital  aspect  requires  some 
explanation.  To  form  the  digital  picture  function,  a flying  spot 
scanner  or  densitometer  is  used  to  assign  values  to  each  matrix 
element  according  to  the  gray  level  of  that  element.  This  process 
is  called  quantizing  or  digitizing. 

Basically  the  flying  spot  scans  the  photograph  line  by  line 
and  illuminates  parts  of  it  at  regular  intervals  during  successive 
sweeps  across  the  viewing  area.  When  the  spot  illuminates  a white 
(or  transparent)  area  a bright  light  is  reflected  into  a 
photomultiplier  which  transduces  it  into  a high  voltage  signal. 

Dark  areas  produce  low  voltage  signals.  The  pattern  of  high  and 
low  voltages  then  correspond  to  the  shading  of  the  picture,  i.e. 
black,  white,  or  gray.  These  voltages  are  represented  as  integer 
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values  to  form  the  digitized  (quantized)  picture,  and  the  range 
of  integer  values  represents  the  grey  level  scale.  [7] 

Point  Spread  Functions. 

Because  the  flying  spot  does  not  produce  an  exact  point  source 
but  rather  a spot  perhaps  5/10,000  of  an  inch  in  size,  the  light 
from  the  scanner  is  spread  over  a small  but  finite  area  of  the 
picture.  This  spread  of  illumination  is  called  the  point  spread 
function,  S,  of  the  flying  spot  scanner.  In  fact r each  element  of 
our  lens-film-digital  system  has  a point  spread  function.  In  film 
the  image  point  is  spread  by  scattering,  reflections,  and  the 
granularity  of  the  film  itself. 


Figure  2 x 

TYPICAL  SPREAD  FUNCTIONS  (Adapted  from  [8]) 


Suppose,  for  the  moment,  that  It  is  possible  to  obtain  all  the 
individual  point  spread  functions  which  characterize  our  lens-film- 
digital  system.  It  is  known  from  optics  that  Image  illumination  is 
obtained  from  the  object  luminance  by  a two-dimensional  convolution 
of  the  object  with  the  point  spread  function.  [9]  Hence,  at  any 
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point  in  our  system,  there  exists  a transient  image  which  is  the 
convolution  of  the  object  and  the  initial  point  spread  function,  or 
an  intermediate  image  (which  represents  a previous  convolution) 
convolved  with  another  point  spread  function.  In  particular,,  we 
have  a linear  system  such  that 


^(x,  y) 


f * S^x,  y) 


00 

f (x1,y1)S1(x  - x^y  - y1)dx1dy1  (1-8) 

/ d 
«00 


f 2 (x > y)  - f1(x,  y)  * S2(x,  y) 

VX'  y>  - £„-l(x*  y)  * Sn 
for  i « 1 n elements  in  the  system, 

where  f is  the  original  (ideal)  object  image, 
fi(x,  y)  is  the  transient  image, 

S^(x,  y)  is  an  intermediate  point  spread  function, 
f^(x,  y)  is  the  output  image t and 


* denotes  the  convolution  operation. 

If  we  let  0 be  the  convolution  defined  as, 


0[f(x,  y)]  = 


f(x1,y1)S(x  - x^y  - y1)dx1dy1 


J J 
—00 


then. 


(1-9) 

(1-10) 


(1-11) 
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0[Thgf](x,  y) 


^ f(x1,y1)S(x  - x1  - h,  y - y1  - g)dx1dy1  (1-12) 


oo 

ff 


f(x1,y1)S((x  - h)  -x^ , (y  - g)-y1)dx1dy1  (1-13) 


0[Th  f](x,  y)  = 0f(x  - h,y  - g)  = Th  [0f(x,  y)]  . 


(1-14) 


Hence,  the  convolution  operation  (*)  is  position  invariant  and 
clearly  linear.  In  view  of  this  physical  motivation,  convolution 
becomes  the  position  invariant  linear  operation  necessary  to 
process  picture  functions.  Fortunately,  convolutions  are  easy  to 
analyze  using  Fourier  transform  theory. 
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PRINCIPLES  OF  IMAGE  PROCESSING 

The  realization  of  convolution  leads  us  to  Fourier  transforms 
via  the  convolution  theorem  which  states  that  the  convolution  of 
two  functions  is  equal  to  the  inverse  Fourier  transform  of  the 
product  of  their  Fourier  transforms.  [10] 

(For  a proof  see  Appendix  A) 

That  is, 

f1(x,y)  = f*S(x,y)  = F_1[F[f(x,y) ]F[S(x,y) ] ] (2-1) 

where  the  two-dimensional  Fourier  Transform  of  f(x,y)  is  defined 
as , 

00 

F(u,v)  = F[f  (x,y)  ] = f(x,y)e~27T1^XU+yV^dxdy  ’ (2-2) 

i 

— CO 

and  by  the  inverse  Fourier  transform  of  F(u,  v)  is  meant  the 

reflection  through  (0,  0)  of  its  transform, 

00 

f f 

f(x,y)  = F-1[F[f  (x,y)  ] ] = F(u,  v)ei2lT^XU+yV^dudv  . (2-3) 

J « 

— 00 

In  its  simplest  form,  linear  image  enhancement  can  be  considered 
as  an  attempt  to  solve  the  convolution  integral  for  the  original 
image.  Suppose  linear  degradations,  i.e.  those  in  which  the  point 
spread  function  characterizes  the  image  degradation  and  is 
invariant  over  the  region  of  the  image.  The  degraded  image  can 
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then  be  described  by  the  convolution  integral, 

OO 

fjCx.y)  = f*S].(x,y)  = fCx-x1,  y-y1)S].(x1,y1)dx1dy1  (2-4) 

—00 

where  f(x,y)  is  the  ideal  image  without  degradation, 

Sj(x,y)  is  the  input  spread  function  of  the  digital  system, 
f^(x,y)  is  the  input  image  (a  result  of  previous  convolutions 
in  the  lens-film  system), 

with  the  implication  that  the  resolution  of  the  input  image  is 
characterized  by  the  input  spread  function.  [11] 

Application  of  the  convolution  theorem  allows  partial  solution 
of  the  convolution  integral  of  equation  (2-4)  by  using  Fourier 
transforms.  Hence, 

F[f j(x,y) ] = F[f*Sj(x,y) ] = F[f(x,y)]F[SI(x,y)]  . (2-5) 

Solving  for  the  ideal  image, 

F[f  (x,y)  ] = F[f].(x,y)  ]/F[S];(x,y)]  (2-6) 

and  taking  the  inverse  transform  gives 

f(x,y)  = F“1{F[fI(x,y)]/F[SI(x,y)]}  . (2-7) 

This  equation  describes  a process  by  which  the  ideal  can  be 
determined  from  the  degraded  image  and  knowledge  of  the  point  spread 
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function  associated  with  the  degradation.  The  Fourier  transform  of 
the  input  point  spread  function  is  by  definition  the  input  transfer 
function.  It  is  immediately  apparent  that  the  input  transfer 
function  may  have  regions  of  zero  value;  in  which  case,  equation 
(2-7)  becomes  meaningless  because  of  an  indeterminate  ratio.  To 
ease  this  problem,  image  restoration  requires  a slightly  different 
formulation.  This  is  obtained  by  multiplying  both  sides  of  equation 
(2-6)  by  the  term  F[Sq(x,  y) ] which  gives, 

F[f(x,  y)]F[So(x,  y)3  = F[f].(x,  y)]F[SQ(x,  y)]/F[SI(x,  y)  ] . 


(2-8) 


The  left-hand  side  of  equation  (2-8)  is  the  Fourier  domain 
representation  of  a convolution  integral  of  the  form 


f0(x’  y> 


|\,  l i._  , l i.  . i.  l 

f(x-x  , y-y  )SQ(x  ,y  )dx  dy  = 


F“1[F[f(x,y)]F[So(x,y)] . 


(2-9) 


The  term  fo(x,  y)  is  defined  as  the  output  image;  Sq(x,  y)  is  the 
output  point  spread  function.  Use  of  only  the  output  transfer 
function,  F [Sq(x,  y) ] , has  the  same  disadvantages  described  for  the 
input  transfer  function.  By  defining 

F[S  (x,  y)]  = F[Sq(x,  y)]/F[SI(x,  y) ] 


(2-10) 
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where  S^(x,  y)  is  the  processing  point  spread  function,  the  right 
side  of  equation  (2-8)  becomes  the  Fourier  domain  statement  of  the 
convolution  integral. 


fQ(x,  y) 


r ' 

fI(x-x1,y-y1)S  (x1,y1)dx1dy1  = fT(x,y)*S  (x,y), 

J ±,  P 1.  p 


(2-11) 


and 


fQ(x,y)  = F"1[F[fI(x,y)]F[Sp(x,y)]]  (2-12) 


where  F[S^(x,y)]  is  defined  as  the  cunnnulative  digital  transfer 
function  which  characterizes  degradation  due  to  processing. 

Equation  (2-12)  is  preferable  to  equations  (2-6)  or  (2-9)  because 
it  indicates  that,  in  the  presence  of  noise,  it  is  not  possible  to 
obtain  a perfect  restoration.  However,  proper  selection  of  S^(x,y) 
avoids  the  problems  of  a zero-valued  transfer  function  and  can 
serve  to  suppress  the  noise  level  in  the  output  image  to  a tolerable 
level.  [12-16] 

Hence,  we  have  a linear  filter  system,  the  heart  of  which  is  a 
two-dimensional  Fourier  transforming  capability.  A two-dimensional 
spatial  filter,  S^(x,y),  can  be  formed  and  the  filter  operation 
defined  by  a convolution  in  the  spatial  domain  or  a multiplication 
in  the  Fourier  domain.  If  f^(x,y)  is  the  output  of  the  filter 
with  fj(x,y)  as  input,  then  [17] 
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GO 

fQ(x,y)  = | fI(x,y)Sp(x-u,y-v)dudv  = f].*Sp(x,y)  (2-13) 


where  u,  v are  spatial  frequencies  in  lines  per  millimeter.  (See 
Appendix  B for  an  explanation  of  spatial  frequency.) 

The  problem  is  now  to  choose  the  filter  in  such  a way  as  to 
reproduce  fQ(x,y)  as  a good  approximation  or  replica  of  f(x,y)  , 
the  ideal  image. 


FILTERING  DEGRADED  IMAGES 
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In  general  there  are  two  types  of  noise:  random  noise  and 
system  noise.  Random  noise  creates  random  points  of  bad  data  which 
appear  as  "snow"  or  "salt  and  pepper"  in  the  degraded  image.  To 
reduce  this  noise,  -tke  fraslc  concept  is  to  replace  each  value  by  a 
weighted  average  of  the  neighboring  points.  Systematic  noise, 
however,  is  usually  clustered  very  heavily  around  a single 
frequency.  A filter  peaked  near  this  frequency  is  all  that  is 
needed  to  clean  out  the  noise.  Subjective  judgement  and  numerous 
trials  are  usually  made  to  determine  the  optimum  filter  for  each 
type  noise.  [18] 

System  End-to-End  Analysis. 

Since  no  element  of  the  J.ens-film-digi±al  system  can  attain 
absolute  fidelity  of  output  to  input  signal,  a progressive 
degradation  of  the  signal  occurs  as  it  passes  through  the  system. 
The  elements  in  the  data  chain  may  alter  or  distort  the  signal  and 
they  may  introduce  spurious  values,  i.e.  noise.  Because  the  system 
operations  are  sequential,  the  signal  changes  and  noise  contribu- 
tions are  usually  additive. 
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Granularity  Phosphor 
Noise  Noise 


Data  Link  Densitometer 
Figure  3 

LENS-FILM-DIGITAL  SYSTEM  SIGNAL  AND  NOISE  BLOCK  DIAGRAM 
(Adapted  from  [19]) 

Random  Noise  and  Scan  Line  Filtering. 

Random  noise  is  considered  as  additive  noise,  i.e.  noise  which 
is  added  during  transmission  but  cannot  be  attributed  to  any  specific 
process  in  the  lens-film-digital  system.  In  this. section  we  consider 
position  invariant  operations  (not  necessarily  linear)  which  can  be 
used  to  smooth  a picture  in  order  to  suppress  additive  random  noise. 

One  can  smooth  a picture  by  simply  replacing  the  value  at 
each  point  by  the  average  of  the  values  over  a neighborhood  of  the 
point;  however,  better  results  can  be  obtained  by  taking  a weighted 
average  over  the  neighborhood.  The  points  of  the  neighborhood  are 
given  weights  that  decrease  as  their  distances  from  the  center 
increase.  [20-21]  This  concept  is  best  described  by  an  illustrative 


example . 
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Suppose  we  have  a framelet  of  a lunar  crater  with  a one- 
dimensional  scan  extracted  and  quantized. 


Figure  4 

QUANTIZED  IMAGE  AND  ONE  DIMENSIONAL  SCAN 


Let  f ^ of  equation  (2-13)  be  the  original  quantized  one- 
dimensional image  plus  additive  noise, 


fT(x  ) = f(x)  + n(x) 

I o 

= [41  4556111  1|2]  + [o!  -1  0 -1  0 0 0 1 0 SO  ] 

i i • 1 

= [4!  3 5 4 6 1 1 2 l!  2] 

I 1 

I 

let  S (x)  be  a three-element  weighted  averaging  filter, 


Sp(x)  = 


hi  0 1 


111 
4 2 4 


** 


**Note  that  the  filter  is  normalized,  t [1  2 1],  This  preserves  the 
gray  level  range  of  the  picture  function.  Adapted  from  [22]. 
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Perform  the  convolution  of  the  image  f^  and  the  filter 
give  the  recovered  output. 


S 

P 


to 


Note  that  the  filter  is  effective  only  within  the  dashed  lines  of 
the  image  matrix,  i.e.  noise  which  occurs  near  the  edge  will  not  be 
filtered 


Quantization 

Level 


degraded  image 
filtered  output 


element 


SIMULATED  SCANNER  READOUT  FOR  A SINGLE  LINE 
AND  SMOOTHING  BY  WEIGHTED  AVERAGE  FILTER 


Noise  removal  by  smoothing  has  several  drawbacks.  If  a 
picture  is  smoothed  too  extensively  blurring  (loss  of  resolution 
or  loss  of  proper  gray  level  intensities)  can  occur.  This  can  be 
partially  overcome  by  combining  a threshold  technique  with 
averaging.  For  example,  let  the  neighbors  of  an  element  E be 


denoted  by 


83 


A 

B 

C 

D 

E 

F 

G 

H 

I 

If 


E - (A  + B + C + D + F + G + H + I)  /8 


> 6 , a threshold 


value,  replace  E by  (A+B  + C + D + F + G + H + I)/8; 
otherwise,  leave  E unchanged.  [23]  (For  an  excellent  review  and 
examples  of  this  technique  see  [24].) 

Additional  difficulties  arise  from  features  which  are  very 
sharp  in  contrast.  When  the  filter  comes  into  such  an  area,  it 
resonates  and  gives  rise  to  false  echoes  of  the  feature.  This  is 
known  as  "ringing"  and  is  illustrated  in  Figure  6. 


Experimental  Results  on  One-Dimensional  Images. 

Various  linear  and  weighted  average  filters  were  examined  on  a 
100  element  one- dimensional  image.  This  filtering  was  done  by 
convolving  a noisy  image  of  the  form  f^(x)  = f(x)  + n(x)  with 

filters  of  varying  size,  e.g.  13  to  47  elements.  In  general  simple 
(unweighted)  averaging  filters  are  the  least  effective  for  restoring 
the  original  image  and  create  blurring  especially  in  areas  of 
rapidly  changing  contrast.  If  the  noise  is  truly  random,  Gaussian 
filters  (weighted  average  filters  using  Gaussian  distribution)  give 
generally  pleasing  results  and  blurring  is  not  as  severe  as  with 

sin  nk 


the  simple  filter.  The  best  overall  filter  seems  to  be  the 


Trk 


84 


t 


images.  Simple  (unweighted)  averaging  filters  cause  severe  blurring. 


FILTER 
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though  the  input  image  is  partially  clipped.  Clipping  may  indicate 
a partial  loss  of . the  input  signal  or  it  may  be  done  intentionally 
to  remove  useless  information  prior  to  filtering. 
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Table  1 COMPARISON  OF  FILTERED  IMAGES 


Figure 

Input  Image  Filter  Size  (d) 

Filter 

6 

(— ) 

\ [(-l)50  + 1] 

25 

sin.6x 

X 

7 

1 X 

y (cos  -Jq  + Random  number) 

6 

2 

-(  X ) 
e ^.5; 

8 

X x 

— (cos  Jq  + Random  number) 

10 

2 irx 

COS  2 (d+1) 

9 

•j  [3  + sinx  + cos  y + sin 

30 

sin.4x 

X 

10 

i [2  cosx  + sin  -j  + 3] 

10 

sin.6x 

X 

11 

[2  cosx  + sin  y + 3] 

45 

sin  .6x 
X 
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function.  If  the  noise  is  truly  random,  it  performs  as  well  as  the 

sxxi  Trk 

Gaussian  filter.  If  the  noise  is  periodic,  the  — — — function 

acts  as  a low-pass  filter.  It  seems  to  preserve  essential  high 
frequencies,  but  attenuates  those  high  frequencies  which  cause 
distortion.  It  was  also  noted  that  this  filter  gave  better  results 
when  the  filter  size  was  increased  from  13  to  47  elements. 

To  test  the  efficiency  of  the  filter,  the  filter  is  convolved 
with  a noiseless  image.  A good  filter  should  preserve  the  original 
image  with  little  attenuation.  See  figures  6 through  11. 

Systematic  Noise  and  Modulation  Transfer  Functions. 

Let  us  consider  the  filtering  of  systematic  noise,  i.e.  noise 
generated  by  certain  system  elements.  Suppose  the  input  picture  of 
equation  (2-13)  has  been  degraded  by  position  invariant  linear 
operations,  i.e.  by  the  successive  convolutions  of  equation  (1-10) 
such  that 

f1  = f*S1*S2* *Sn  . (3-1) 

Then  equation  (2-13)  becomes, 

f = f*S  *S  * S *S  . (3-2) 

o 1 2 n p ' 

Taking  the  Fourier  transform  of  both  sides, 

F = FSVtL.  . . (3-3) 

o 1 2 n p ' 

Let  G = ) be  the  cummulative  transfer  function  for  the 

12  n 
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entire  lens-film-digital  system  (the  system  transfer  function),  then 

F = (FG)S  . (3-4) 

o p 

The  most  obvious  means  of  constructing  a compensating  filter 

is  to  let  S = l/G,  multiply  by  the  Fourier  transform  of  the 
P 

degraded  image,  and  take  the  inverse  Fourier  transform  to  restore 
the  ideal  image.  Letting  1>  = l/G  equation  (3-4)  becomes, 

f = F-1[FG/G]  = f . (3-5) 

o 

When  this  approach  is  used,  the  filtering  is  carried  out  in  the 
spatial  frequency  domain  (Fourier  domain)  rather  than  in  the  space 
domain;  hence,  the  name  spatial  filtering,  [25]  (Some  authors  refer 
to  this  technique  as  inverse  filtering  [26].) 

Modulation  Transfer  Functions. 

It  is  obvious  that  knowledge  of  the  system  transfer  function 

G is  essential  for  construction  of  the  filter  S which  will  give 

P 

the  best  restoration.  When  normalized  the  Fourier  transform  of  the 
spread  function  is  called  the  optical  transfer  function.  Using 
one  dimension  for  simplicity  we  denote  the  normalized  transform 
by 

r S(x)e-2,,lkxdJt 

N(k) (3-6) 

/ S(x)dx 

' — cn 
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where  k denotes  spatial  frequency.  The  above  expression  for  the 
optical  transfer  function  contains  both  an  amplitude  term  and  a 
phase  term.  Usually  the  phase  term  is  important  only  when 
considering  coherent  illumination,  as  in  a laser.  However,  for 
most  TV  and  photographic  analysis  the  illumination  is  incoherent  so 
only  the  amplitude  term  is  important.  [27]  The  transfer  function  is 
then  called  the  modulation  transfer  function  (MTF) , and  it  is 
designated 

S(x)cos2irkxdx  - i S (x) sin2irkxdx 

■ ■■■■■■  ■ — „ * " mi.  — — • 

I /L  S(x)dx|  (3_7) 

In  actual  practice,  T(k)  is  used  instead  of  in  equation  (3-4). 

The  normalized  filter  is  used  to  preserve  the  range  of  gray  levels 
in  the  picture  function. 

Modulation  transfer  functions  are  used  for  evaluating 
degradation  of  information  by  the  system  components  individually  or 
in  combination.  The  lens  will  be  used  as  the  primary  example  for 
discussion,  although  the  utility  of  the  transfer  function  lies  in 
the  fact  that  it  can  be  used  to  describe  the  net  effect  on  the  image 
as  well  as  the  individual  contributions  of  lens,  film,  scanner 
elements,  etc. 

The  MTF  or  frequency  response  is  commonly  measured  with  a sine 
wave  test  target.  This  is  a pattern  of  bars  and  spaces  with  a 
sinusoidal  variation  in  intensity  which  can  be  described  by  the 


T(k)  = 


N(k) 


/ 
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equation:  (see  also  Figure  12) 


where. 


I (X  ) = A + B cos  W X 
o o o o o o 


I (X  ) - target  brightness  as  a function  on  X 
o o c 


= average  brightness  = 
I max  - I min 


I max  + I min 


w = 2 7r  N , where  N indicates  lines /mm 

o o o 


= distance  in  object  plane  perpendicular  to 
target  bars. 


B 

The  modulation,  M = - — and 

o A 

o 


the  contrast,  C 


1 + M 
c 

1 - M 


In  the  relationships  above,  the  subscript  o denotes  the 
object  plane.  The  same  formulas  describe  the  relationships  of  these 
parameters  as  the  object  scene  is  reproduced  in  the  image  plane  with 
the  subscript  i used  to  denote  the  image  plane.  Thus,  the 
modulation  in  the  image  plane  becomes 

B.  1 + M. 

M#  = — , and  the  contrast  C.  = — • 

x A.  l 1 - M. 

1 x 


M, 


The  plot,  T(k) , of  the  ratio 


M 


as  a function  of  frequency 


(lines/mm)  is  the  modulation  transfer  function  (MTF)  of  the  lens 


Figure  12  REPRESENTATION  OF  SINE  WAVE  RESPONSE  MEASUREMENT 
(Adapted  from  [28]) 
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(or  particular  system  element) , 

Mi  ' 

MTF  = — as  a function  of  frequency  • 
o 

Experimentally,  the  MTF  of  a lens  (or  lens  + film,  etc.)  can  be 
determined  by  measuring  the  object  modulation  (contrast)  and 
resultant  image  modulation  for  a series  of  sine  wave  test  targets  of 
varying  spatial  frequencies  or  line  spacings.  [29]. 

The  abberation-free  lens  system  reproduces  a point  according  to 
the  diffraction  limit  as  represented  by  the  spread  function  of 
the  common  Airy  Disc.  Taking  the  Fourier  transform  of  the  Airy 
diffraction  image  gives  the  frequency  response  curve  or  MTF  as 
shown  in  Figure  13.  An  actual  lens  system  is  not  abberration  free 
and  thus  the  response  is  lower  than  that  of  the  theoretical 
diffraction  limited  function.  The  MTF  of  the  24  inch  focal  length, 
f/5.6  LOS  lens  is  shown  for  comparison  by  the  dashed  lines  in 
Figure  13.  [30]. 

Cascading  the  MTFts. 

The  film,  photomultiplier  tube,  and  other  elements  of  the 
system  have  finite  minimum  image  spread  functions  and  thus,  MTFfs. 
The  MTF  for  the  total  system  is  simply  the  product  of  the  MTFfs  for 
each  individual  element.  An  illustrative  example  is  shown  in 


Figure  14. 
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Figure  13  MTF  (Fourier  transform)  OF  DIFFRACTION  LIMITED 
(Airy  Spread  Function)  f/5.6  OPTICS  AT  5500& 
(Adapted  form  [28]) 
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Figure  14  MTF  ANALYSIS  OF  SIGNAL  AND  MINIMUM  MODULATION 
REQUIRED  FOR  DETECTION  (Adapted  from  [28]) 
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In  many  instances  the  modulation  or  contrast  of  an  object  may 
be  reduced  by  atmospheric  haze.  With  reference  to  the  notations  on 
Figure  14,  a 50%  modulation  of  the  target  scene  is  plotted  as  line 
(1);  the  MTF  of  the  24  inch  lens  is  curve  (2);  the  MTF,  of  S. 0.243 
film  with  NIMAT  processing  is  curve  (3).  Thus,  by  cascading  these 
functions,  the  resultant  system  MTF  is  shown  by  curve  (4).  [31] 

Image  Resolution  and  MTF’s 

Whether  the  combined  system  response,  with  any  certainty,  can 
resolve  the  target  scene  depends  on  the  location  of  the  detection 
threshold.  If  the  detection  threshold  intersects  the  system 
response  curve  at  a spatial  frequency  greater  than  the  spatial 
frequency  of  the  target,  detection  is  unlikely.  [32]  The 
threshold  detection  curve  for  S. 0.243  film  is  shown  as  curve  (5)  in 
Figure  14.  As  indicated,  the  resolution  of  this  system  is 
approximately  140  lines/mm. 

Problems  Associated  with  the  MTF's. 

Image  degradation  is  seldom  the  result  of  only  position 
invariant  linear  operations  (convolutions) . Zeros  occur,  in  some 
MTF's  making  it  impossible  to  obtain  finite  reciprocal  functions 
for  compensating  filters.  [33]  Nevertheless,  good  results  can  be 
obtained  by  approximating  the  reciprocal  functions  with  finite 


values . 
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When  little  is  known  about  the  system  MTF,  assume  a Gaussian 
transfer  function.  The  compensating  filter  then  becomes  an  inverse 
Gaussian  curve  which  can  be  implemented  on  a digital  computer.  [34] 
(See  [8,  19]  for  an  excellent  discussion  on  the  calculation  and 
application  of  MTF's.) 
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SUMMARY 

A major  question  for  investigation  still  remains:  what  to  do 

when  noise  and  systematic  noise  occur  simultaneously?  There  is  no 
standard  answer.  There  is  no  single  filter  which  will  restore  all 
degraded  images;  each  image  must  be  uniquely  filtered  and  analyzed 
to  restore  its  information  content.  Because  the  researchers  of  image 
processing  come  from  many  diverse  fields  (e,  g.  Fourier  analysis, 
optics,  spectral  analysis,  communication  and  information  theory, 
photographic  reconnaisance,  micro-biology,  etc.),  each  person, 
depending  upon  his  research  information,  developed  heuristic  tech- 
niques to  solve  his  particular  problem.  Only  a general  algorithm 
has  evolved. 

It  is  generally  safe  to  assume  the  presence  of  both  systematic 
and  random  noise  in  a degraded  image.  Operate  first  by  the  method 
of  modulation  transfer  functions  to  obtain  a useful  image.  (If  one 
does  not  know  the  system  MTF,  one  may  try  to  filter  with  an  inverse 
Gaussian  curve.)  Secondly,  continue  image  enhancement  by  smoothing 
the  remaining  noise  with  some  type  of  averaging  filter. 

Until  the  field  of  image  processing  becomes  more  standardized, 
each  researcher  must  develop  the  filters  to  suit  his  particular 
needs.  Any  attempt  at  image  processing  must  understand  the 
following  [35]  : 


1.  Because  of  limitations  on  resolution  and  because  of 

the  presence  of  noise,  any  image  contains  only  a finite 
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amount  of  information. 

2.  The  fundamental  limit  of  processing  is  achieved  when 
the  human  visual  system  is  able  to  extract  from  the 
processed  image  all  information  contained  in  the 
original  degraded  image. 

3,  No  amount  of  linear  processing  can  increase  the 
information  content  of  an  image. 
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APPENDIX  A 

Proof  of  the  convolution  theorem.  One  dimension  is  shown  for 
simplicity. 

The  Fourier  transform  G(u>)  of  a function  g(x)  is  defined  by 


G(co)  = 


g(x)e  lwxdx  where  to  = 2ttu 


Given  the  convolution 


fo(x)  - 


f (x^SCx-x^dx' 


taking  the  Fourier  transform  of  both  sides. 


Fo(“)  - 


f (x’)S(x-x')e  ltl)Xdxdx' 


letting 


t = (x-x')  , 


V“>  - 


r r f \ n / x.  \ -10>t  -XWX  - } . 

f (x  )S(t)e  e dx  dt 


SCO 


F„<“>  ■ 


f(x')e"I"x,dx' 


,00 


S(t)e~ia)tdt 


F (to)  =’  F(to)S(to). 
o 
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APPENDIX  B 

Spatial  Frequency  and  Resolving  Power. 

The  Figure  15  shows  an  Air  Force  resolution  test  chart  made  up 
of  a series  of  progressively  smaller  patterns.  Each  pattern  consists 
of  lines  and  spaces  of  equal  width.  The  usual  procedure  employed 
to  find  the  resolving  power  of  an  imaging  system  is  to  photograph 
such  a test  chart  and  then  pick  out  the  finest  pattern  that  can  be 
discerned.  The  reciprocal  of  the  width  of  a line  plus  a space  is 
called  the  limiting  resolving  power  of  the  system.  The  units  are 
stated  as  spatial  frequency  in  optical  line  pairs  per  millimeter  or, 
more  simply,  lines  per  millimeter  (1pm)  or  cycles  per  millimeter 
(cpm)  . If  we  denote  the  limiting  spatial  frequency  by  , then 

K = I = = 1 

o a XF  X(f-n umber) 

where  "a"  now  represents  the  combined  width  of  a line  and  space. 

The  ratio  F/D  is  called  the  F-number  or  relative  aperture  of 
the  lens,  and  X is  light  wavelength.  [36] 
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Figure  15  HIGH-CONTRAST  RESOLUTION  TEST  CHART 
(Adapted  from  [36]) 
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2.  EARLY  ATTEMPTS  TO  ENHANCE  DATA 


Early  attempts  to  construct  filters  were  modeled  after  an  approach 
suggested  by  Robert  Nathan.  His  data  was  not  photographic,  but  some  of 
the  noise  sources  (viz.  (iv) , analog  signal  noise  added  in  transmission) 
he  had  to  cope  with  were  also  present  in  our  data.  It  is  not  necessary 
to  completely  describe  Nathan’s  method;  however,  we  will  outline  the 
steps  we  took  to  attempt  to  utilize  it. 

The  treatment  of  the  kinds  of  noise  in  LO  data  requires  bringing 
the  discussion  to  two  dimensions  in  both  the  real  and  frequency  domain. 
Our  data  is  different  from  ordinary  photography  in  that  it  has  been 
scanned  and  dititized  in  some  particular  direction.  Because  not  every 
scan  line  is  perfectly  reproduced,  a very  high  frequency  noise  is  added 
to  the  signal  in  the  spatial  frequency  domain  in  the  direction 
perpendicular  to  the  scan  line  direction  (Pig.  2.1),  To  supress  noise 
in  his  (video)  system,  Nathan  developed  a "scan-line  filter”  (which  is 
used  in  the  Analysis  Program  to  remove  noise  in  the  (real)  direction 
perpendicular  to  the  radial  lines)  which  was  to  remove  scan  line  noise. 
We  found  this  filter  to  be  particularly  ineffective  in  our  (digitized  LO) 
data.  A closer  examination  of  the  filter  reveals  high  sensitivity  to 
jitter.  Also,  film  granularity  noise  appeared  after  application  of  the 
scan  line  filter,  which  we  had  not  anticipated,  and  which  took  on  an 
’’oblong"  appearance.  Finally,  the  filter  had  only  a negligible  effect 
on  the  analysis  program  produced  elevation  profiles. 

Since  our  noise  was  not  purely  scan  line  noise,  we  decided  to 


Scan  Line  Noise,  Frequency  Domain 


Fig.  2.1  Scan  Line  Noise. 
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construct  filters  which  corrected  the  frequency  response  up  to  spatial 
frequencies  of  120  1/mm  (approximately  the  maximum  reproducible  at  the 
sampling  rate  in  the  L0  digitization  and  scan  line)  with  a maximum 
enhancement  of  5.0  (to  keep  from  enhancing  noise  too  much  - the  same 
factor  choosen  by  Nathan  in  his  one- dimensional  analysis),  with  very 
sharp  cutoff  above  120  1/mm.  A program  was  written  to  calculate  and 
normalize  the  Fourier  transform  of  the  frequency  response  desired. 

The  filters  constructed  were  extremely  large;  mathematically,  we 
discovered  the  reason  was  the  rapid  cutoff  above  120  1/mm.  A small 
(9x9)  version  of  this  filter  was  tried  and  found  to  enhance  the  noise 
so  much  as  to  be  virtually  useless.  We  predicted  that  larger  versions 
would  also  fail;  the  alternation  of  signs  in  the  direction  of  the  scan 
line,  for  example,  suggested  a marked  tendency  to  ring,  probably  owing 
to  the  sharp  cutoff  above  120  1/mm.  Even  with  a 9x9  filter,  ringing 
was  observed  in  the  neighborhood  of  the  drummarks.  Accordingly,  we 
abandoned  Nathan’s  approach  completely  in  favor  of  an  approach  which 
took  into  account  the  noise  present  as  well  as  had  a more  gradual 
cutoff  at  high  spatial  frequencies. 

After  these  early  failures,  we  decided  to  attempt  to  improve 
Nathan’s  filter  construction  method.  For  this  purpose,  we  needed  an 
estimate  on  both  the  (spatial)  frequency  response  of  the  L0  system 
and  an  estimate  on  the  (frequency)  spectrum  of  the  noise  to  be 
suppressed.  The  first  we  had  already  obtained  from  calibration  data 
furnished  by  Kodak  and  Boeing  with' the  film  and  LO  photographic 
subsystem.  The  second  was  obtained  by  (numerical)  Fourier  analysis 
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of  the  grayshade  areas  (in  the  edge  data)  for  the  digitization  of 
interest.  To  some  extent  the  spectrum  found  by  this  method  was  as 
expected  (in  general,  bell-shaped  with  peaks  along  and  perpendicular 
to  the  scan  line  direction),  although  there  were  some  unexpected  (and 
unexplained)  dips . Following  the  classical  methods  used  for  one- 
dimensional  analysis  and  optimal  filtering,  we  attempted  to  construct 
a filter  which  would  be  optimal  (in  the  sense  of  minimal  mean  square 
error) , assuming  we  actually  knew  the  noise  spectrum  to  be  as  we 
found  it  numerically,  and  that  the  system  response  was  as  specified. 
It  should  be  emphasized  that  this  program  is  more  general  than  that 
carried  out  by  Nathan  and  later  by  L.  D.  Nelson  (of  Bellcomm,  1967) 
in  that  we  considered  the  problem  of  noise  as  well  as  the  problem  of 
correction  of  the  system  spatial  frequency  response.  The  Fourier 
transform  of  the  presumed  optimal  filter  (given  in  the  frequency 
domain)  was  computed  and  sampled  at  the  proper  points . This  filter 
is  given  in  Fig.  2.2,  in  which  only  the  upper  left  part  of  the  filter 
is  reproduced.  (The  actual  filter  is  7x7.)  This  filter  was  tried 
on  edge  data  and  on  moon  scene  and  was  found  to  enhance  the  jitter 
even  more  than  the  filters  constructed  without  concern  for  noise. 


We  decided  to  start  all  over. 
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Fig.  2.2  Early  Filter 
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3.  DESIRED  CORRECTIONS 

An  examination  of  all  available  LO  III  calibration  was  again  under- 
taken, this  time  to  see  if  an  acceptable  compromise  response  could  be 
obtained  to  allow  construction  of  a mathematical  model  with  enough 
simplicity  to  allow  exact  analysis.  Table  3.1  gives  the  results  of 
these  averages.  (Not  all  points  are  represented  in  all  calibration  data, 
so  that  some  of  the  points  are  derived  from  an  average  of  more  data  than 
are  others.) 

Frequency,  1/mm  Average  Response  Ideal  Correction  Response 


0.0 

1.0 

1.0 

22.5 

0.675 

1.48 

45.0 

0.395 

2.53 

67.5 

0.2015 

4.96 

90.0 

0.1475 

6.78 

Table  3.1  Average  Response,  LO  III. 

These  results  are  also  sketched  in  Fig.  3.2. 

An  examination  of  Fig.  3.2  suggests  that  the  desired  correction  is 
nearly  exactly  parabolic  for  spatial  frequency  under  67.5  1/mm.  Since  our 
data  is  sampled  in  two  dimensions  over  a grid  of  about  4y  x 4y,  the 
highest  frequency  cutoff  should  be  about  half  of  1/.0004  1/mm,  that  is 
about  125  1/mm.  Accordingly,  we  looked  for  functions  which  were 
approximately  parabolic  near  0 and  fell  off  rapidly  above  125  1/mm. 
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4.  EXACT  MATHEMATICAL  ANALYSIS  OF  CHOSEN  FILTERS 

The  desired  correction  of  §3,  combined  with  the  requirement  of 
smooth  roll  off  to  avoid  the  problems  of  §2,  lead  to  filters  with 
spatial  frequency  response 

F(x,y)  «*  a((x/b)2  + (y/b)2)  exp[l-((x/b)2  + (y/b)2)]  + exp[-((x/b)2  + (y/b)2)]. 

The  parameter  a influences  how  rapidly  the  correction  function  rises 
near  0 while  the  parameter  b governs  the  behavior  for  large  frequencies. 

If  a = 0,  the  filter  is  equivalent  to  scanning  by  a Gaussian  spot, the 

i 

size  of  which  is  related  to  b by  the  formula  a = 22/b  y.  For  example, 
if  b = 50,  a = 0,  the  filter  corresponds  to  scan  by  a 4.5  y Gaussian 
spot.)  As  a increases,  the  filter  with  this  frequency  response  shows  a 
peak  in  response  for  moderate  frequency,  decreasing  rapidly  (but  smoothly) 
above  the  peak,  and  displaying  approximately  parabolic  response  near  0. 

There  are  two  reasons  for  this  choice  of  filter.  First,  the  function 
is  easily  graphed  (on,  e.g.,  the  HP  9100  B system)  and  the  parameters  may 
be  selected  from  an  examination  of  families  of  graphs.  Second,  the 
Fourier  transform 

f(u,v)  - ( j F(*,y)e-2,,1(xu  + yv)dxdy 

of  F is  easily  computed  analytically,  avoiding  numerical  integration 
of  Fourier  transforms.  (The  actual  calculations  are  deferred  to  §5.) 

In  Figures  4.1  thru  4.5,  families  of  curves  are  displayed  which 
represent  the  effect  of  changing  the  parameter  a with  a fixed 
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parameter  b.  Points  at  which  the  desired  correction  is  known  are 
marked  with  In  Fig.  4.6  and  Table  4.7,  we  display  ten  different 

responses  cho  sen  for  analysis.  All  ten  were  developed  into  filters 
and  tests  performed.  The  filters  (which  are  numerical  approximations 
to  the  Fourier  transform  of  the  function  F given  above)  are  applied 
as  convolutions  in  the  real  domain,  with  values  and  results  being 
displayed  in  §7 . 


J>  ■=■  60 


H-i- 


FKEQUeu'ct,  J/m* 
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Curve 

a 

b 

1 

1.25 

29 

2 

1.31 

33 

3 

1.39 

39 

4 

1.49 

45 

5 

1.66 

52 

6 

1.85 

60 

7 

2.25 

69 

8 

2.80 

80 

9 

3.60 

93 

10 

4.00 

103 

Table  4.7  Parameters  in  Fig.  4.6 
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5.  CALCULATION  OF  FOURIER  TRANSFORM 


In  this  section,  we  present  the  calculation  of  the  Fourier  trans- 
form of  the  function  F given  above  in  §4. 

F (x,y)  = a((gx)2  + (gy)2)e1-((|3x)2  + (6y)2) 

•a  p 


The  Fourier  transform  of  F^  is  given  by 


.2  . v 2 l-((6x)2  + (gy)2)  -2iri(xu  + yv) 


fa  p(u,v)  = a | | ( (gx) 1 + (gy)^  'e  ' '"dxdy 


■M 1 


(w2  + z2)e1-<w2  + =2>e-2’ri<wu/6  + zv/f!>dwdZ 


a - ,u  vN  - 

-j  £i(f>  f • uhere 


f^s,  t)  - | | (x2  + y2)e1-(x2  + y2)e‘2’i(xs  + yt) 


dxdy 


-e{ 


ry  rs 

-y  -27riyt . f 2 -x  -27rixs  , 
e ' e dy  xe  e dx 


I 


, , -x^  -27rixs  , f 2 -y^  -27Tiyt  - 

+ e|e  e dx  ye  e dy 


- e(f (t) g(s)  + g (t ) f (s ) ) , where 
2 

f(t)  - j e~x  e-2”ixtd*  and 

A 

f 2 -x  -2'rrixtJ 
g(t)  = x e e dx. 
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2 

“X 

Now  the  function  g is  the  Fourier  transform  of  x(xe  ) . We  have 
(with  Fourier  transforms  being  denoted  by 


g(t)  = x(xe“x  )(t) 


1 d 


- 2ti±  dt 


xe 


-x 


(t> 


K f"(t). 

4tt 

Also,  it  is  well  known  that  (with  a = 1//2) 


_ h. 

a<2«)1/2e  21'<2to> 


~ /tt  e 
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We  have 


f'(t)  = -2n2  t e'*2*2 


9 5 

— 2 2 — 2 2 

, 2 2 -TT  t 0 2 -ir  t 

f"(t)  **  4ir  t e -2ir  e 


so  that 


2 2 

7 /l  2 2.  -tt  t 
g(t)  = /tt(j  - it  t ) e 


Hence  (skipping  some  of  the  algebra) 


, , 1-tt2(s2  + t2)/n  2,2  2 .. 

f^(s,t)  = 7Te  '(1  - 7T  (s  + t )) 


= nh(Tr/(s2  + t2)) 


where 


h(u)  = eF  u (1  - u2)  = k(l  - u2)  , 


k(v)  = ve 


Recall  (from  §4) 

F(x,y)  - a((x/b)2  + (y/b)2)e1-((x/b)2  + (y/b)2)  + e-((x/b)2 


Fa  l/b^x,y^  + 


+ (y/b)2) 


Hence  (combining  our  results  above) 


128 


f(x,t)  - I j F(x,y)e-2,,1(3!S  + ^dxdy 


- Fa  + b2  f (bs)  f (bt) 

2 2 2 

,2  r r,  - v , -2  -7T  (s  + t ) 

= ab  (bs,  bt)  + b 7r  e 


.2  2,2,  2..  l-ir2(s2  + t2) 

= ab7r(l-7r(s+t))e 


2 2 2 
, • 2 -tt  (sZ  + t ) 
+ b tt  e 


In  order  to  gain  an  understanding  of  this  function  (the  filter)  we 
plot  f (u,v)  for  v = 0,  0 £ u 20y  with  a = 3,  b = 80,  in 
Fig.  5.1.  Since  the  grid  we  are  sampling  over  is  spaced  about 
4y  x 4y,  we  anticipate  difficulty  properly  sampling  this  function; 
this  and  related  problems  are  discussed  in  the  next  section. 
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6.  NUMERICAL  CONSTRUCTION  OF  FILTERS 


This  section  contains  a description  of  the  mathematical  background 
which  supports  the  documentation  of  iT^MKFS). 

Refer  to  Fig.  5.1,  a filter  to  be  applied  (mathematically)  as  a 
convolution  extending  over  all  the  plane.  Clearly,  the  filter  is 
negligible  (even  when  integrated)  for  distances  >_  12y  from  the  center. 
Thus  a 7x7  filter  would  seem  to  be  lavish  (with  edges  at  least  14y  from 
the  center),  and  a 3x3  may  even  be  acceptable.  The  main  problem  is 
sampling  such  a wildly  varying  function  adequately.  We  resolve  this 
problem  in  the  filter  construction  program  by  numerically  integrating 
the  function  over  a mesh  centered  between  the  DX,  DY  lattice  points 
(DX  = 0.003605,  DY  = 0.00405),  using  a simple  unweighted  average  for 
the  contribution  associated  with  each  mesh  rectangle.  (This  method  has 
great  stability,  and  computer  time  is  not  an  important  consideration 
since  the  job  need  be  done  only  once.)  More  precisely,  we  fill  an  array 
F as  follows: 

10  10 

F(I,J)  = l l f(DX(I  + k/20),  DY(J  + j/20)), 

k = -10  j = -10 

I,J  - -10,  •••,  10.  This  gives  an  array  F containing  an  unnormalized 
filter.  Subarrays,  centered  at  (0,0)  and  with  dimensions  varying  from 
3x3  to  21x21,  are  sampled, and  normalized  (to  have  sum  1),  and  are  printed. 
For  example,  in  the  3x3  case,  we  take 
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G^I,  J)  = F(I,  J),  I,  J = -1,  • • * , 1, 

1 1 

S = l l 6(1,  J), 

k = -1  j = -1  1 

6(1,  J)  = G1(I,  J)/S  . 

The  array  G is  the  normalized  filter.  (Owing  to  habit  (induced  by 
FORTRAN’S  reluctance  to  use  negative  subscripts),  the  printed  filters 
are  indexed  differently.) 
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l',  COMPUTER  PROGRAM  DOCUMENTATION  - MKF3 


7ll.  PROGRAM  DESCRIPTION 
7'.  1.1.  GENERAL  DESCRIPTION 

This  program  makes  filters  to  be  used  as  input  data  cards  by  the 
filter  program.  The  program  is  a straight  forward  application  of  the 
theory  described  in  the  mathematical  documentation.  The  program  is 
self  contained  except  the  constants  A,B,C  are  input  by  the  user  and  are 
also  described  in  the  mathematical  documentation.  Given  constants 
A,B,C  the  program  calculates  all  filters  of  orders  from  3x3  to  11x11. 
7ll.2.  MATHEMATICAL  DESCRIPTION 


A detailed  description  of  the  mathematical  purpose  and  method  of 
the  program  is  given  in  § § 5 and  6.  The  constants  A,B  and  C enter  into 
the  calculation  as  parameters  in  the  formula 


F(X,Y)  - A B2 


In  § § 5 and  6,  A=a  and  B=C=b. 

7/.2.  USAGE 

7#.  2.1.  DESCRIPTION  OF  INPUT 

The  constants  A,B,C  are  read  from  data  cards  In  FORMAT  (3F7.2). 

7 '.2. 2.  DESCRIPTION  OF  OUTPUT 

Printed  output:  Approximately  184  pages  of  output  are  furnished.  The 

filters  are  printed  by  a modified  version  of  subroutine  PRINTM,  one 
filter  to  a page  for  the  small  filters,  with  the  filters  having  9 or  11 
columns  requiring  two  pages. 
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Fig.  l'.2. 3.1  CARD  DECK  SETUP  (UNIVAC  1108)  — MKF3 


CS 
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Card  output:  Logic  is  included  to  punch  all  7x7  filters,  which  is 

easily  changed  to  meet  other  requirements.  A 7x7  filter  will  result 
in  7 cards  output  for  each  input  set. 

7'. 2. 3.  RUN  PREPARATION 

Card  deck  setup:  See  Fig.  712,3.1. 

Sub routine  requirements:  PRINTM 

7;.2.4.  EXECUTION  CHARACTERISTICS 
Restrictions:  None. 

Storage  requirements:  Code,  5370g.  Arrays,  3036g. 

Run  time:  30  seconds  per  set  of  input  parameters. 

Lines  output:  2000  lines  per  set  of  input  parameters. 

Accuracy /Validity:  Perfect  I 

l'.3.  REFERENCE  INFORMATION 

7 1 3 . 1 . DETAILED  FLOW  CHART  - See  Fig.  713.1.1. 

7'.  3. 2.  DESCRIPTION  OF  VARIABLES 

F - Array  in  which  values  of  the  filters  are  stored. 

G - Array  which  has  normalized  values  of  F. 

DX, DY  - The  distance  in  millimeters  between  elements  of  the  lunar 
orbiter  data. 

X,Y  - Points  at  which  the  filter  is  calculated. 


READ(5, 5) 
A.B.C 


.003605 

.00405 

3.141592653 

-10 


J = IK, 10 
K = IK, 10 


I = IK, 10 
N = IK, 10 


- MKF3 
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Fig.  7^3. 1.1.  DETAILED  FLOW  CHART  - MKF3  (Continued) 
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DETAILED  FLOW  CHART  - MKF3  (Concluded) 
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7.  RESULTS  OF  APPLYING  FILTERS  TO  MOON  SCENE 


The  filters  developed  above  were  applied  to  part  of  Framelet  025. 
This  segment,  containing  250  lines  only,  contains  a Reseau  mark.  The 
photographs  we  obtained  from  JPL/IPL  were  apparently  intended  for 
projection;  that  is,  normal  printing  results  in  a negative.  This  is 
just  as  well,  for  the  noise  (jitter)  is  more  evident  in  a negative  near 
the  Resau  mark. 

There  are  19  photographs  in  this  section.  Table  7.1  contains  the 
values  of  the  parameters  for  all  the  pictures  as  well  as  the  size  of 
the  filters  involved.  Then,  in  Fig.  7.2  and  in  Fig.  7.37,  we  display 
an  original  of  the  area  of  interest.  There  follow  pictures  and  filters 
in  that  order  - that  is  Fig.  7.  (2n  + 1)  will  be  a picture.  Fig.  7, 

(2n  + 2)  the  filter  associated  with  Fig.  7.  (2n  + 1),  n = 1,  ...,  17. 
All  the  pictures  have  been  corrected  for  scan  line  signature  and  have 


had  drummarks  removed. 
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Photo 

Filter 

a 

_b_ 

Size 

7.3 

7.4 

4.00 

103 

7x7 

7.5 

7.6 

4.00 

103 

3x3 

7.7 

7.8 

3.60 

93 

7x7 

7.9 

7.10 

3.60 

93 

3x3 

7.11 

7.12 

2.80 

80 

7x7 

7.13 

7.14 

2.80 

80 

3x3 

7.15 

7.16 

2.25 

69 

7x7 

7.17 

7.18 

2.25 

69 

3x3 

7.19 

7.20 

1.85 

60 

7x7 

7.21 

7.22 

1.85 

60 

3x3 

7.23 

7.24 

1.66 

52 

7x7 

7.25 

7.26 

1.66 

52 

5x5 

7.27 

7.28 

1.49 

45 

7x7 

7.29 

7.30 

1.49 

45 

5x5 

7.31 

7.32 

1.39 

39 

7x7 

7.33 

7.34 

1.31 

33 

7x7 

7.35 

7.36 

1.25 

29 

7x7 

Table  7.1. 

VALUES 

OF  PARAMETERS 

IN  FIGS.  7.3  - 

7.36. 

Fig.  7.2  Original  (Unfiltered)  Area,  #01821,  033314. 
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Fig.  7.3  Filtered 


a - 4.0,  b = 103,  7x7,  //01821,  033636 


NASA  TAPE  ND.  01 


C-OL  .1 

ROW J .00004354 

row  2 ~ .00032474 

_ROW  .3  . . ,00106644 

ROW  4 ,001  57040 

„ROW  .5 .00106644 

ROW  6 .00032474 

R 0 W 7 . 00004354 


C OL  2 
•00052729 
.0034 1008 
,0036  J 3 1 8 
-.00317164 
.0036 i 3 1 8 
.0034  j 008 
_ .00052729 


COL  3 
.0022284J 
,0002151 ? 
-.06970295 
,0162146a 
-.06978295 
,00021 51 9 
, 0022284 1 


C°L  4 
.00345978 
-.01845520 
. 05822838 
1.11 772366 
•05822833 
-•01 845520 
•00345978 


COL  5 
,0022204 1 
.00021 5 1 9 
-,06978295 
.01621 467 
- ,06978295 
.0002  1 5 1 9 
.0022288  J 


COL  8 
,Q0052729 

• 003  4 1 006 
. 0036 1 3 1 8 

- • 0 0 3 1 7 1 8 4 
•00361 318 

• 0034  1 OQR 

•0Oq52729 


C0L  7 
,00004354 
,0003247m 
, 00  1 06644 

.00 1 5 7 0 4 0 
.00  108644 
• 0003247  4 
.00004354 


Fig.  7.4  Filter  for  Fig.  7.3. 


14  J 


Fig.  7.5  Filtered  a = 4.0,  b = 103,  3x3,  //01821,  033616 


01-15-71  033616  JF'L/IPL 
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COL  1 

C°L  2 

COL  3 

ROW 

. 1 

-.07066785 

.0589*677 

-.O7O66785 

ROW 

2 

,01642029 

1 , l 3 1 89735 

, 0 1 642029 

ROW 

3 

-.07066786 

, QS896672 

- ,0706678* 

Fig.  7.6  Filter  for  Fig.  7.5. 
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Fig.  7.7  Filtered  a = 3.6,  b = 93,  7>:7,  #01821,  033556 


TAPE  HD.  01821 
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COL  1 

COL  2 

COL  3 

COL  4 

.ROW 

_ 1 

_ _ *000  1 4599 

*00 1 1 2987 

,00344834. 

. -.«0044q7 4 4 

ROW 

z 

,00076031 

. 00440295 

- , 00575s  7 4) 

_.027l9562 

ROW 

3 

.00197171 

* . 000 15938 

- ,05070085 

.1061 0035 

ROW 

y 

.00265202 

01  02  1 709 

,05974271 

.90765967 

ROW 

s 

.00197171 

-.00015933 

- .05070084 

.1061 0024 

ROW 

6 

.00076Q3  1 

.00440295 

-.0057587,4 

“.02719563 

ROW 

7 

,000 1 4599 

.0011 2987 

..,00344834 

...•00460744 

COL  5 
*00344  e34 
- , 00S7S8  7m 
-.05070085 
.05974271 
-.05070034 
-.00575874 

,00344834 


COL  6 
•0011 2987 
. 00h4Q295 
-•0001B938 
- * 0 1 02 1 709 

- » ooc l 593a 

*00840298 
• 0 0 l 1 2 9 8 7 


COL  7 
• 000 1 459? 
,00076031 
. 00 1 ? 7 1 7 1 
. 0026&202 
.00197171 
.00076031 
*0001 4599 


Fig.  7.8  Filter  for  Fig.  7.7. 


= 3.6.  b = 93,  3x3,  #01821,  033536. 


Fig.  7.9  Filtered  a 


COL  1 

COL  2 

COL  3 

R0W„ 

_ 1 

0*189  1 3MM 

• 1 02  35989 

- . 0M89 1 3M4 

ROW 

2 

.057&365M 

.87566099 

,0576365m 

ROW 

3 

- .0M89 1 3M3 

. J0235977 

- , 0M89  1 3M3 

Fig.  7.10  Filter  for  Fig.  7.9 


-LwP-L 


% # 

Fig.  7.1]  Filtered  a = 2.8,  b = 80,  7x7,  //01821,  033515. 
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COL  1 

COL  2 

COL  3 

COL  4 

ROW 

1 

.00057772 

.00253016 

,0047*1992 

.0048871 3 

ROw 

2 

.00191 934 

.00457106 

-.01  113812 

-.02564855 

ROW 

3 

.00357365 

-•00523636 

- .0087526^ 

•14169169 

ROW 

H 

.00**  l 864  l 

-.01445745 

, 1 0085722 

.60578831 

ROW 

5 

.00357365 

- .Q0523636 

- . 00075263 

'•14169160 

ROW 

6 

.00191934 

.00457106 

-.01  113812 

-•02564856 

ROW 

7 

.00057772 

• 0025  30  1 6 

.00  4 7*1992 

•00488712 

COL  5 

COL  6 

COL  7 

,00474992 

.00253016 

.00057772 

-.01  113812 

.00457 1 06 

.00191934 

-.00875264 

-T0523636 

.00357365 

.10085721 

-•01445745 

,00418641 

-.00375263 

-•00523636 

,00357365 

-.01  113812 

•00457106 

.00191934 

.004  7 4992 

•002*3016 

. 0005  7772 

Fig.  7.12  Filter  for  Fig.  7.11. 


Fig.  7.13  Filtered  a = 2.8,  b = 80,  3x3,  7/01821,  033455 
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COL  1 

COL  2 

COL  3 

ROyv 

1 

-.00828996 

.13919356 

- ,00828996 

ROiV 

2 

.0955  1 999 

.S7373082 

.09551999 

ROW 

3 

-.00828996 

. 1 39  1 9397 

- ,00828996 

Fig.  7.14  Filter  for  Fig. 


i 


7.13. 
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Fig.  7.15  Filtered  a = 2.25,  b = 69,  7x7,  #01821,  088435 


01-15-71  033435  JPL/IPL 
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ROW  1 
ROW  2 
ROW  3 
ROW  4 
ROW  5 
ROW  6 
R 0 W 7 


COL  1 
. 00  1 £>02  1 1 
.0033485.2 
. 0 Q 4 4 4 5 l 4 
. 00445352 
,0044451  4 
.00334852 
,00  1502  1 1 


COL  2 
•0039216? 
•002^3702 
-.00779241 
-.01240137 
-.  0077924  1 
«q02637q2 
.003??  1 69 


COL  3 
.00423224 
-.01145633 
,0242554o 
, 1 1560139 
,02425539 
-.011 45633 
,G0H23224 


COL  4 
•00283430 

-•01504517 

.147 13940 
. 4 1446259 
• 1 47  1 39  28 

-•01504517 

•00283430 


COL  5 
•00423224 
-.011 45633 
.02425540 
. 1 1560 138 
.02425839 
“.Oil  45633 
.00423224 


COL  6 
•003921 69 
'00263702 
-•0077924 1 
-*0l24nl37 
”•00779241 

♦ 00263702 

♦ 00392 1 69 


C OL  7 
•00 18021 1 
.00334852 
.00444514 
,00445352 
,00444514 
.00334852 
• 00 1 502  1 1 


Fig.  7.16  Filter  for  Fig.  7.15 


FJg.  7.17  Filtered  a *= 


3x3,  *01821,  033415 . 


2.25,  b - 69, 


.ROW...  1 
ROW  2 
ROW  3 


COL  1 e°L  2 

0233907  H ...  ,1  9189^20 

• 1 1 19  8 0 9 5 ,39968789 

.02339079  . . j 9 18990? 


COL  3 
. 02339  07  9 
, 1 1 1 98oh4 

,0233?073 


Fig.  7.18  Filter  for  Fig.  7.17 


Fig.  7J9  Fil*»rrd  a - 1.85,  b - 60,  7x7,  //01821,  033354 


160 


COL  1 

COL  2 

COL  3 

COL  8 

ROW 

1 

.00270182 

,009320i39 

,00239158 

.0003 1 1 35 

ROW 

2 

,00915906 

*000327 1 3 

- . 00573625 

-•00016277 

ROW 

3 

,00390073 

-.00598936 

.08528152 

•13686382 

ROW 

.00325556 

-.00869589 

. 1 1 833506 

.29277682 

ROW 

s 

,00390073 

-.00598936 

.09528152 

•13686367 

ROW 

6 

,009 15906 

•00032713 

- .00573625 

-•000 1 6277 

ROW 

7 

.00270182 

. n0932039 

,00239158 

•0003  1 1 35 

COL  & 
.00239 159 
- ,00573626 
.09528 152 
. 1 1833506 
.085281  5 1. 
- .00573625 
.00238158 


COL  6 

• 008  32089 

* 00n327  1 3 
-*00598836 
-*00969589 
-•00598936 

• Q0q327 1 3 
•00932089 


COL  7 
,00270182 
.00915906 
.00390073 
.00328556 
.00390073 
.00915906 
.00270 1 fi2 


Fig.  7.20  Filter  for  Fig.  7.19. 


I 


Fig.  7.21  Filtered  a - 1,85,  b « 60,  3x3,  #01821,  033334 


01-15-71  033334  JPL/IPL 
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COL  1 

COL  2 

CoL  3 

ROW 

_ 1 

,04638072 

• l 4 0 1 8 M 7 

, 04638o72 
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Fig.  7.22  Filter  for  Fig.  7.21. 
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Fig.  7.23  Filtered  a = 1.66,  b = 52,  7y7,  #14707,  032857 
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Fig.  7.24  Filter  for  Fig.  7.23. 
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Fig.  7.25  Filtered  a = 1.66,  b = 52,  5x5,  //14707,  032917 
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Fig.  7.26  Filter  for  Fig.  7.25. 
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Fig.  7.27  Filtered  a = 1.49,  b = 45,  7x7,  //14707,  033059 
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Fig.  7.28  Filter  for  Fig.  7.27. 
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Fig.  7.29  Filtered  a = 1.49,  b = 45,  5x5,  #14707,  032938 
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Fig.  7.30  Filter  for  Fig.  7.29 
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Fig.  7.31  Filtered  a = 1.39,  b = 39,  7x7,  //  14707,  0 3 30  39. 
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Fig.  7.32  Filter  for  Fig.  7.31. 
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Fig.  7.33  Filtered  a = 1.31,  b = 33,  7x7,  #14707,  033018 
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Fig.  7.34  Filter  for  Fig.  7.33 
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Fig.  7.35  Filtered  a = 1.25,  b = 29,  7x7,  #14707,  032958 
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Fig.  7.36  Filter  for  Fig.  7.35. 
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Fig.  7.37  Original  (Unfiltered)  Area,  #14707,  032837 
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8.  APPLICATION  OF  FILTERS  TO  LO  DATA. 


8.1.  THEORY 

Mathematically,  the  filters  were  conceived  in  the  spatial  frequency 
domain;  since,  as  has  been  indicated  in  §1,  multiplication  in  the 
frequency  domain  corresponds  to  convolution  in  the  real  domain,  our 
filters  are  applied  as  convolution  transforms.  Thus  our  filters  (denoted 
by  f)  change  the  input  data  i into  output  data  o by  the  formula 


o(u,v) 


f (x,y)i(u-x,v-y)dxdy. 


Our  real  data,  however,  is  not  given  by  a function  (nor  is  the  filter), 
but  is  given  as  an  array,  with  spacing  between  data  points  .003605  mm 
in  the  x-direction  and  .00405  mm  in  the  y-direction.  The  filters  were 
approximated  by  numerical  integration  over  rectangles  centered  at  these 
grid  points.  Our  filters  are  applied  as  numerical  convolutions 


o(n,m)  = l l f (i, j)i(n-i,m-j) , 

i j 


it  being  assumed  that  the  filters  have  previously  been  normalized, 

(An  aside:  Refer  to  Fig.  5.1.  The  filter  value  near  0 of  about 

150,000  may  seem  surprising;  however,  when  one  considers  that,  numerically, 
dx  = .003605  and  dy  = .00405,  we  obtain  the  weighted  value  at  0 for  the 
numerical  filter  of  about  2.2(=  .003605  x .00405  x 150,000);  this  filter 
was  not  actually  used.  The  filter  with  b=80  had  a=2.8,  resulting 
in  a much  smoother  response  in  the  real  domain.) 
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8.2.  PRACTICE 

Since  FORTRAN  arrays  have  positive  subscripts,  the  formula  in  the 
program  looks  different;  for  example,  for  a 3x3  filter  and  a 636x738 
picture 

0(N,M)  = l1  J1  F(I+2, J+2) I (N-I,M-J) 

I = -1  J = -1 

for  N = 2,  •••,  635  and  M = 2,  • • • , 737.  Thus  the  discrete  filter 
application  produces  a smaller  picture  than  the  original  picture.  For 
a (2n+l)x(2mfl)  filter,  the  border  of  unfiltered  data  is  n from  the 
left  and  right  and  m from  the  top  and  bottom.  This  problem  can  be 
solved  in  several  different  ways : 

(i)  Leave  the  border  out  and  just  have  a smaller  output  picture  than 
input  picture. 

(ii)  Replace  the  border  areas  with  black  or  white  (77  or  00)  to  make 
the  output  picture  the  same  size  as  the  input  picture. 

(iii)  Replace  the  border  areas  with  unfiltered  original  data. 

(iv)  Fill  out  the  border  with  constant  data  with  valve  equal  to  the 
valve  at  the  nearest  filtered  data  point. 

(v)  Design  and  furnish  special  border  filters  based  on  the  center 
filter.  As  an  example,  the  3x3  filter 

.1  -.1  .1 

-.3  1.4  -.3 


.1 


-.1 


• 1 
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might  have  associated  with  it  four  special  border  filters: 

-.1  .1  .1  -.1  -.3  1.5  -.3  -.3  1.5  -.3 

1.3  -.3  -.3  1.3  .1  -.1  .1  .1  -.1  .1 

-.1  .1  .1  -.1 

left  edge  right  edge  top  bottom 

The  special  filters  may  be  obtained  from  the  large  inside  filter  by 
(a)  changing  the  center  value  to  make  the  sum  of  the  filter  val  es  1 (the 
method  used  in  the  above  example)  or  (b)  by  renormalizing  the  filter 
(leading  to  more  complicated  values  but  keeping  what  is  probably  closer 
to  the  intended  spatial  frequency  response).  In  method  (b),  for  example, 
the  left  edge  filter  would  be: 

-.091  .091 

1.272  -.272 

-.091  *091 

If  the  filter  is  larger,  then  more  special  filters  (and,  accordingly, 
more  complex  logic  in  the  program)  will  be  required.  For  a 
(2n+l)x(2nrKL)  filter,  2(n-hn)  filters  will  be  required. 

We  used  method  (ii)  for  our  initial  tests,  methods  (iii)  and  (iv) 
for  the  filtered  data  for  use  in  the  analysis  program.  In  the  program 
documented  in  the  next  section,  method  (iv)  is  used  since  it  seemed  to 
produce  better  edges  on  the  contour  maps. 

Another  (simple)  problem  remains.  If  the  filter  is  one  of  those 
which  enhance  the  high  frequency  response  to  a marked  degree,  the  possibility 
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exists  that  a filtered  value  will  be  negative  or  larger  than  63. 

When  such  numbers  are  converted  to  octal  numbers,  they  will  "fold  over". 
For  example,  the  3x3  filter  a=4.0,  b=103  (see  Fig.  7.6)  applied  to  the 
area 


10 

30 

10 

30 

60 

30 

10 

30 

10 

gives  the  convolved  value  (truncated)  66,  which  (when  converted  to  an 
actual  number  by  PACK6)  becomes  02g.  This  is,  of  course,  not  the 
intended  value,  and  will  cause  white  areas  where  there  should  be  dark 
areas.  The  solution  we  employ  is  to  clip  the  output  data  before 
packing  with  PACK6.  A (perhaps)  better  solution  is  to  predict  when 
foldover  will  happen  by  looking  at  the  variation  of  values  and  turning 
the  filter  off  in  the  neighborhood  of  an  extremely  high-contrast  area, 
(This  solution  would  reduce  ringing;  however,  our  filters  seldom  ring,) 

The  filter  program  documented  next  is  general  enough  to  apply  filters 
to  any  size  area  (with  the  only  limitation  being  the  core  size) ; because 
of  the  usual  tape/core/drum/ tape  problems,  we  employ  double  buffering 
and  a circular  buffer  to  speed  up  input/output  (using  NTRAN)  and  allow 
calculations  to  be  performed  simultaneously. 
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9.  COMPUTER  PROGRAM  DOCUMENTATION  - FILTER 


The  filter  program  described  in  this  document  is  incorporated 
(and  so  documented)  as  a subroutine.  We  first  describe  the  parent 
program  - MAIN. 

9.1.  PROGRAM  DESCRIPTION 

The  Main  program  is  the  parent  routine  of  the  FILTER  subroutine 
and  associated  subroutines  and  provides  for  initialization  of  data, 
parameters  and  positioning  of  tapes. 

9.2.  USAGE 

9.2.1.  DESCRIPTION  OF  INPUT 
Card  input: 

R Gray  shade  data  for  making  D log  E;  the  array  R contains 

the  exposure  values  in  MCS  which  are  to  be  assigned  to  the 
LO  data  numbers.  In  our  problem,  we  obtained  (from  study  of 
the  gray  scale  averages,  described  in  Part  I above)  the 
following  array  for  R (read  in  FORMAT  (11F7.4)): 


L0#N 

I 

R(I) 

L0//N 

I 

R(I) 

L0#N 

I 

R(I) 

0 

1 

.800 

32 

5 

.223 

64 

9 

.128 

8 

2 

.500 

40 

6 

.192 

72 

10 

.112 

16 

3 

.330 

48 

7 

.167 

80 

11 

.100 

24 

4 

.264 

56 

8 

.145 

For  example,  in  this  digitization,  the  number  24  represents 
an  exposure  value  of  .264  MCS.  The  exposure  values  corres- 
ponding to  > 64  are  obtained  by  extrapolation  of  the  D log  E 
curve,  and  are  needed  owing  to  the  effects  of  clipping. 
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CF  An  array  of  636  correction  factors,  smoothed,  obtained  by 
smoothing  the  column  averages  associated  with  this  digiti- 
zation, read  in  FORMAT  (6E13.1). 

K,L  The  half-dimension  of  the  filter;  for  example,  a 7x7  filter 
has  K = L = 3.  Read  in  FORMAT  (213). 

NFLTR  Number  of  filters  to  be  applied  this  run,  read  in  FORMAT  (12). 
FLTR  The  normalized  filter  of  dimension  (2K  + 1)  x (2L  + 1),  read 
in  FORMAT  (8F10.6)(one  row  per  card  when  K 3)  . 

Tape  input: 

The  specific  program  documented  here  requires  one  of  our  special 
one  line  per  record  tapes,  produced  by  program  COPYT  documented  in  §10. 

9.2.2.  DESCRIPTION  OF  OUTPUT 
Tape  output: 

The  filtered  pictures,  written  one  line  per  record  with  EOF  between 
pictures  for  NFLTR  pictures,  and  two  EOF  after  all  pictures.  Should  one 
desire  to  use  the  output  in  the  LO  Analysis  Program,  this  tape  output  is 
used  as  input  for  program  MCSF  documented  in  §12. 

Printed  output: 

The  correction  factors  and  filter  values  are  printed.  In  the  present 
version,  the  filtered  picture  is  printed  using  subroutines  PRETTY 
and  PRINTO  to  reproduce  pictures  using  symbols  and  overprinting.  This 
output  provides  a quick  check  on  the  results,  and  has  been  used  before 
in  program  JOIN. 

9.2.3.  RUN  PREPARATION 

Card  deck  setup:  see  Fig.  9.2. 3.1. 
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Fig.  9. 2. 3.1.  DECK  SETUP  (UNIVAC  1108)  MAIN  (FILTER) 
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Fig.  9. 2. 3.1.  DECK  SETUP  (UNIVAC  1108)  MAIN  (FILTER)  (Concluded) 
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Subroutine  requirements: 

CFR  A routine  which  performs  CF(I)  = 10./CF(I);  see  9.3.3. 

DLOGEF  A routine  which  calculates  D log  E data  given  gray  shade 

data  R;  see  9.3.4. 

FILTER  The  filter  routine;  see  9.3.5. 

RESET  System  timing  routines. 

TIME 

NT RAN  System  tape  read,  write  routines . 

9.2.4.  EXECUTION  CHARACTERISTICS 

Restrictions:  Owing  to  the  use  of  PARAMETER  variables  in  the  FORTRAN 

program  MAIN,  the  routine  can  be  easily  redimensioned 
to  filter  data  of  any  size  (except  for  the  limitations 
of  the  core).  For  large  filters,  some  DIMENSION  state- 
ments must  be  modified  in  the  obvious  manner. 

Storage  requirements:  Code  and  storage:  13205 3Q.  This  leaves  free 

O 

15724g  for  possible  larger  areas.  Using  the  same  code, 
with  only  minor  modifications,  the  nine  chit  JOIN  picture 
was  filtered,  with  no  storage  problems. 

Run  time:  For  use  of  all  features  employed  here,  we  found  the 

following  formula  for  filtering  and  performing  all 
corrections:  t = 9(2K  4*  1)  (2L  + 1)  + 206  seconds 

to  correct  one  chit  (=  738x636  elements) . 

For  use  in  the  analysis  program,  only  one-fourth  as 
many  filtered  data  points  need  be  processed.  This  fact, 
plus  the  speed-up  suggested  in  the  filter  program,  should 


188 


allow  all  corrections  (including  filtering)  to  be 
performed  on  a chit  in  less  than  one  minute,  exclusive 
of  hanging  tapes.  Even  the  present  algorithm,  applied 
to  every  element  in  every  row,  requires  less  than  five 
minutes  per  chit  for  a highly  effective  3x3  filter. 

Printed  output:  Approximately  100  pages  per  chit. 

Accuracy:  Well  within  the  limits  of  the  LO  data  - The  procedure 

takes  special  pains  to  improve  accuracy  in  the  applica- 
tion of  correction  factors,  removal  of  drummarks  and  in 
the  correction  of  the  D log  E curve.  For  example,  we 
expect  the  accuracy  to  be  within  2%  for  our  correction 
factors  and  D log  E curve,  whereas  the  corrections  in 
the  Analysis  Program  are  probably  not  better  than  20%. 

9.3.  REFERENCE  INFORMATION 

DETAILED  FLOW  CHART  - See  Fig.  9.3.1. 

DESCRIPTION  OF  VARIABLES  - See  Table  9.3.2. 

DESCRIPTION  OF  SUBROUTINES:  See  the  appropriate  section: 

9.3.3.  CFR 

9.3.4.  DLOGEF 

9.3.5.  FILTER 

Other  subroutines,  called  by  the  FILTER  subroutine,  are  documented  in 

the  report  on  Project  A. 


! 
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Fig.  9.3.1.  DETAILED  FLOW  CHART  - MAIN  (Continued) 
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Fig.  9.3.1.  DETAILED  FLOW  CHART  - MAIN  (Continued) 
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K1  = 2*K+1 
LI  = 2*L+1 


Fig.  9.3.1.  DETAILED  FLOW  CHART  - MAIN  (Continued) 
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Fig.  9.3.1.  DETAILED  FLOW  CHART  - MAIN  (Continued) 
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Fig.  9.3.1.  DETAILED  FLOW  CHART  - MAIN  (Continued) 


1 
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Fig.  9.3.1.  DETAILED  FLOW  CHART  - MAIN  (Concluded) 
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NCOL  - Number  of  characters  per  row  of  data. 

MCOL  - Number  of  words  per  row  of  data. 

IRBUF  - Array  used  in  input  by  NTRAN. 

A - Array  used  in  unpacking  data. 

BUF  - Array  which  is  used  is  circular  buffer  by  FILTER  program. 
OBUF  - The  filtered  output  (1  line)  in  floating  point. 

NBUF  - The  corrected  filtered  output  in  meter  candle  seconds  and 
is  either  a positive  or  negative  type  data  depending  on 
LOGE. 

IWBUF  - Packed  data  from  NBUF;  used  in  output  by  NTRAN. 

CF  - Smoothed  correction  factors;  then  the  output  of  CFR. 

R - Gray  shade  data  read  in  by  data  cards;  used  to  generate 
D log  E curve. 

DLOGE  - D log  E data. 

K,L  - Dimension  of  1 quadrant  of  filter. 

K1,L1  - Dimension  of  filter  2K+1,2L+1. 

FLTR  - filter. 

LOGE  - Data  which  converts  picture  to  positive  or  negative. 
NCOP,MCOP  - Dummy  NCOL, MCOL. 

NFILTR  - Number  of  filters  to  be  applied  to  the  data. 

NROW  - Number  of  rows  to  be  filtered. 

NREC  - Number  of  records  to  back  up  the  input  tape  to  the  filter 
program  if  additional  filters  are  to  be  applied. 

IFLG  - Flag  used  to  bypass  certain  instructions  if  more  than  one 
filter  is  to  be  applied  to  the  input  data. 

ITIME  - Time  in  milliseconds  elapsed  in  filtering  the  data. 


Table  9.3.2.  DESCRIPTION  OF  VARIABLES  - MAIN 


198 


9.3.3  SUBROUTINE  CFR 


IDENTIFICATION 

Name/Title  - CFR  (correction  factor  reciprocal) 

Author/Date  - R.  L.  Wendt,  January  1971 

Organization  - ASR 

Machine  Identification  - UNIVAC  1108 

Source  Language  - FORTRAN  V 

PURPOSE 


This  routine  changes  the  smoothed  correction  factors  into  correction 
factors  suitable  for  use  as  multiplicative  factors,  and  at  the  same  time 
multiplies  the  factors  by  10.0  to  allow  better  tonal  resolution  in  the 
application  of  D log  E corrections. 

USAGE 


Calling  Sequence 
CALL  CFR  (CF) 

where  CF  go  in  as  the  array  of  smoothed  correction  factors  and 
return  as  10 . /CF . 

DETAILED  FLOW  CHART 


See  Fig.  9. 3. 3.1.  for  a detailed  flow  chart  of  CFR. 


ENTRY 


Fig.  9. 3. 3.1.  DETAILED  FLOW  CHART- CFR 
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9.3.4  SUBROUTINE  D LOG  EF 
IDENTIFICATION 

Name/Title  - D LOG  EF  (D  log  E filler) 

Author/Date  - R.  L.  Wendt,  December  1971 

Organization  - ASR 

Machine  Identification  - UNIVAC  1108 

Source  Language  - FORTRAN  V 

PURPOSE/METHOD 

D LOG  EF  provides  data  for  the  conversion  from  corrected  (and  scaled 
by  a factor  of  10.0)  LO  data  to  exposure  values  in  meter-candle-seconds. 
The  values  are  obtained  by  linear  interpolation  between  the  data  points 
at  abscissa  valves  1 thru  800,  the  interpolation  being  performed  on  data 
given  at  multiples  of  80  with  eleven  data  points  being  required. 

USAGE 

Calling  Sequence 

CALL  D LOG  EF  (D  LOG  E,  R) 

where  D LOG  E and  R are  as  described  in  MAIN 
(see  Table  9.3.2) . 

DESCRIPTION  OF  VARIABLES 

N,  Nl,  N2  - Values  of  the  abscissa  used  in  linear  interpolation. 

K - Index  used  in  storing  D log  E data. 

Yl,  Y2  - Values  of  the  ordinate  used  in  the  linear  interpolation. 

D LOG  E,  R - Described  in  MAIN. 
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DETAILED  FLOW  CHART 

See  Fig.  9. 3. 4.1.  The  function  F defined  (using  FORTRAN  V DEFINE 
statement)  is  given  by 


F(N,N1,N2,Y1,Y2)  = (Y2-Y1)*(N-N1) /(N2-N1)+Y1 


N2  = Nl+80 


Fig.  9. 3.4.1.  DETAILED  FLOW  CHART  - D LOG  EF  (Concluded) 
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9.3.5  SUBROUTINE  FILTER 
IDENTIFICATION 

Name/Title  - FILTER  (Filter  program) 

Author/Date  - R.  L.  Wendt,  November  1970 

Organization  - ASR 

Machine  Identification  - UNIVAC  1108 

Source  Language  - FORTRAN  V 

GENERAL  DESCRIPTION 

The  Filter  program  that  will  be  described  in  this  document  is  a 
symmetric  type  filter  and  is  incorporated  as  a subroutine. 

The  routine  can  be  used  to  perform  filtering  of  Lunar  Orb iter  data 
in  general,  but  what  will  be  described  in  this  document  is  a specific 
application  so  that  the  output  may  be  input  to  the  Analysis  program. 

Data  correction  is  provided  by  the  filter  program.  Drum  mark 
removal,  correction  factors  and  D LOG  E corrections  are  applied  during 
the  filtering  process.  There  is  evidence  that  all  of  the  data  correction 
done  presently  by  the  Analysis  program  or  utility  programs  is  deficient 
in  theory  or  programming  or  both. 

The  filter  program,  being  a subroutine,  requires  the  driver  routine 
MAIN  to  provide  data  input,  both  cards  and  tape,  data  correction  arrays 
D LOG  E and  CFAC,  and  the  geometric  data  size,  i.e.,  number  of  rows  to  be 
filtered  and  number  of  data  elements  per  row. 

The  standard  Lunar  Orbiter  chit  is  738  lines  by  636  characters  per 
line,  but  the  program  could  be  (and  has  been)  modified  easily  to  filter 
such  data  as  a mosaic  of  Lunar  Orbiter  chits j 

In  the  documentation,  one  of  the  DO-Loops  could  be  modified  in 
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such  a maimer  that  the  algorithm  would  execute  faster.  This  modifica- 
tion will  be  indicated 
DESCRIPTION  OF  THE  FILTER  ALGORITHM: 

The  filter  program  reads  2K+1  lines  of  data,  unpacks  the  data, 
applied  correction  factors  and  D LOG  E corrections,  and  stores  this  real 
array  as  the  first  2K+1  rows  of  BUF,  The  routine  initializes  the  read 
of  another  line  except  when  an  index  equals  NROW.  The  filter  ranges 
across  the  framelet  applying  the  filter  FLTR  as  a convolution  with  BUF. 
The  filtered  lines  are  stored  in  OBUF  and  the  data  (now  in  MCS)  is 
scaled  linearly,  in  this  program  so  that  100  •*-»• . 135MCS  . The  resulting 
integer  array  NBUF  is  reconverted  to  the  same  type  as  the  input  data 
was  and  simultaneously  clipped,  so  that  the  bias  by  a factor  of  100  is 
removed.  The  data  is  then  packed  into  IWBUF.  The  filtered  line  is 
outputted  by  NTRAN  and  the  line  which  was  being  read  while  the  previous 
line  was  being  filtered  is  processed,  corrected  and  stored  in  BUF,  using 
modular  arithmetic  for  the  index,  which  treats  BUF  as  a circular  buffer. 

The  edges  are  treated  differently,  being  held  constant  and  equal  to 
the  nearest  filtered  value.  This  provided  better  contour  maps  than  other 
attempted  solutions  of  the  edge  problem. 

A provision  is  included  so  that  the  filtered  picture  can  be  reduced 
in  tonal  resolution  and  printed  via.  PRETTY  and  PRINTO. 

USAGE 

Calling  sequence 

CALL  FILTER  (NCOL,  MC0L,  IRBUF,  A,  BUF,  OBUF,  NBUF,  IWBUF) 


Common  block: 


PRECEDING  PAGE  BLANK  NOT  FILMED 
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COMMON/FILTR/K,  L,  Kl,  LI,  NROW,  FLTR,  CF,  D LOG  E,  LOG  E 
All  variables  are  as  described  in  Table  9.3.2. 

DESCRIPTION  OF  PROGRAM  VARIABLES  - See  Table  9. 3.5.1. 

DESCRIPTION  OF  SUBROUTINES: 

UNPACK  - Standard  Lunar  Orbiter  subroutine. 

RDMKS  - Removes  drum  marks.  Documented  in  the  report  for 
Project  A,  §10.5.3.2.1. 

CFAX  - Applies  smoothed  correction  factors  (the  output  of 
CFR,  §9.3.3)  as  multiplicative  correction  factors  - 
see  §9.3.6. 

PACK6 

PMAP  - Standard  Lunar  Orbiter  subroutines. 

PREG 

PRETTY  - Modified  versions  of  PRETTY  and  PRINTM 
PRINTO 

as  presently  exist  in  Lunar  Orbiter  documentation,  providing 
for  better  printed  picture  via.  overprinting  and  the  use 
of  symbols;  see  also  9.3.7.  and  9.3.8. 

DETAILED  FLOW  CHART  - See  Fig.  9. 3. 5. 2. 
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NCOL,  MCOL,  IRBUF,  A,  BUF,  OBUF,  NBUF,  IWBUF,  K,  L,  Kl,  LI,  NROW, 

FLTR,  CF,  D LOG  E,  LOG  E - Described  in  MAIN,  Table  9.3.2. 

MTX  - Array  which  is  used  to  reduce  the  tonal  resolution  and  in 
printing  the  output  picture. 

NCOl  - The  next  picture  element  following  the  last  picture  element 
which  is  filtered  in  any  row. 

NWOUT  - The  number  of  words  outputted  per  row. 

C,  D - Conversion  factors  used  to  convert  data  to  meter  candle 
seconds. 

INDX  - An  index  used  in  a FORTRAN  type  table  look-up. 

JL,  JN  - Upper  and  lower  limits  over  which  an  index  in  a DO-Loop  can 
vary.  The  first  and  last  elements  in  any  row  to  be  filtered. 

IKI  - Index  which  serves  as  row  counter  for  MTX. 

KI,  NI  - Index  determined  by  modular  arithmetic  used  in  making  BUF 
circular. 


Table  9. 3. 5.1.  DESCRIPTION  OF  PROGRAM  VARIABLES  - FILTER 
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1 

FLOW  CHART:  FILTER 


Fig.  9. 3. 5. 2.  DETAILED  FLOW  CHART  - FILTER 
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Fig.  9. 3. 5. 2.  DETAILED  FLOW  CHART  - FILTER  (Continued) 
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Fig.  9.3. 


CALL 


CFAX 

\(A,NBUF,NCOL, 
CF) 


I 


16 

J = 1,NC0L 


r 

INDX  = NBUF(J)+1 

BUF(I,J)  ■ 

= DLOGE 
(INDX) 

i 

I 

A 


IL  = 

-L 

IK  = 

-K 

JL  = 

L+l 

JU  = 

NCOL-L 

IKI  = 

1 

I 


C 


5.2.  DETAILED  FLOW  CHART  - FILTER  (Continued) 


I = l.NROW 


Fig.  9.3. 


5.2.  DETAILED  FLOW  CHART  - FILTER  (Continued) 


Fig.  9. 3.5.2.  DETAILED  FLOW  CHART  - FILTER 
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Fig.  9. 3. 5. 2.  DETAILED  FLOW  CHART  - FILTER  (Continued) 
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Fig.  9. 3. 5. 2.  DETAILED  FLOW  CHART  - FILTER  (Continued) 
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Fig.  9. 3. 5. 2.  DETAILED  FLOW  CHART  - FILTER  (Continued) 


NT RAN  \ 
(2,1  NWOUT,  / 
IWBUF, IW)  / 


Fig.  9. 3. 5. 2.  DETAILED  FLOW  CHART  - FILTER  (Continued) 


Fig.  9. 3. 5. 2.  DETAILED  FLOW  CHART  - FILTER  (Continued) 


Fig.  9. 3. 5. 2.  DETAILED  FLOW  CHART  - FILTER  (Continued) 
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Fig.  9. 3. 5. 2.  DETAILED  FLOW  CHART  - FILTER  (Continued) 
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Fig.  9. 3. 5. 2.  DETAILED  FLOW  CHART  - FILTER (Continued) 


Fig.  9. 3. 5. 2.  DETAILED  FLOW  CHART  - FILTER  (Continued) 
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Fig.  9. 3. 5. 2.  DETAILED  FLOW  CHART  - FILTER  (Concluded) 
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The  inclusion  of  the  above  specific  modification  into  the  filter 
program  makes  use  of  the  symmetry  of  the  filter  and  reduces  the 
number  of  multiplications  from  nine  to  four.  This  modification  is 
for  K=L=1  to  decrease  the  execution  time  for  a 3x3  filter.  The 
corresponding  obvious  modification  nan  be  made  for  larger  filters, 
with  an  even  greater  gain  in  efficiency  (for  example,  for  a 7x7 
filter,  instead  of  49  multiplications,  only  16  will  be  needed). 
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9.3.6  SUBROUTINE  CFAX 


IDENTIFICATION 

Name/Title  - CFAX  (Correction  factors  application) 

Author/Date  - R.  L.  Wendt,  December  1970 

Organization  - ASR 

Machine  Identification  - UNIVAC  1108 

Source  Language  - FORTRAN  V 

PURPOSE/METHOD 

The  subroutine  CFAX  applies  correction  factors  as  multiplicative 
factors.  The  factors  given  to  CFAX  come  from  program  CFR  (§9.3.3.  above). 
USAGE 


Calling  Sequence: 

CALL  CFAX  (A,  NBUF,  NCOL,  CF) , 

where  the  variables  A,  NBUF,  NCOL  and  CF  are  as  described  in 
Table  9.3.2. 

DETAILED  FLOW  CHART  - See  Fig.  9. 3. 6.1. 
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Fig.  9. 3.6.1.  DETAILED  FLOW  CHART  - CFAX 
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9.3.7  SUBROUTINE  PRETTY 
IDENTIFICATION 

Name/Title  - PRETTY 

Author/Date  - This  modification:  R.  L.  Wendt,  March  1970. 

Organization  - ASR 

Machine  Identification  - UNIVAC  1108 

Source  Language  - EXEC  II  ASSEMBLY  LANGUAGE 

PURPOSE /METHOD 

This  routine  is  a modification  of  the  standard  LO  subroutine  of  the 
same  name  in  that  two  changes  are  made.  First,  the  original  routine 
failed  to  protect  all  index  registers;  this  defect  is  corrected  here, 
since  the  filter  algorithm  requires  an  unusually  large  number  of  index 
registers.  Second,  instead  of  numbers,  we  here  use  symbols  more  directly 


as  follows : 

LDD 


of  the 

s cene . 

The 

14 

A3, 

05 

14 

A3, 

05 

14 

A3, 

61 

14 

A3, 

32 

14 

A3, 

36 

14 

A3, 

34 

14 

A3, 

40 

14 

A3, 

39 

(LDD  is  a reference  point  for  a jump  instruction.) 
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9.3.8  SUBROUTINE  PRINTO 
IDENTIFICATION 

Name/Title  - PRINTO 

Author/Date  - This  modification:  R.  L.  Wendt,  May  1970 

Organization  - ASR 

Machine  Identification  - UNIVAC  1108 

Source  Language  - FORTRAN  V 

PURPOSE /METHOD 

This  routine  is  a modified  version  of  PRINTM  used  in  the  analysis 
program.  The  routine  prints  20  words  per  page  and  over  prints  every 
other  line. 

USAGE 

Calling  Sequence: 

CALL  PRINTO  (A,  NC,  NR,  MAXR) , where  A is  as  described  in 
Table  9.3.2,  NC  is  the  number  of  rows,  NR  is  the  number  of 
(packed)  elements  per  row,  and  MAXR  is  the  maximum  of  the  number 
of  rows.  (This  routine  is  designed  to  fit  between  PMAP  and  PREG.) 
DETAILED  FLOW  CHART  - See  Fig.  9. 3. 8.1. 


Fig.  9. 3.8.1.  DETAILED  FLOW  CHART  - PRINTO 


Fig.  9. 3. 8.1.  DETAILED  FLOW  CHART  - PRINTO  (Continued) 
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130  FORMAT ( 
4H  ROW, 13, 
2X, 20A6) 


! 

131  FORMAT ( | 

l 

I 

1H+,  8X,  20 A6)  I 


Fig.  9. 3. 8.1.  DETAILED  FLOW  CHART  - PRINTO  (Concluded) 
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10.  COMPUTER  PROGRAM  DOCUMENTATION  - COPYT 

10.1.  PROGRAM  DESCRIPTION 

This  program  reads  a SEDIT  or  EDIT  tape  via  NTRAN  on  unit  1, 
produces  a copy  on  unit  2 and  another  copy  written  one  line  per  record 
on  unit  3. 

10.2.  USAGE 

10.2.1.  DESCRIPTION  OF  INPUT 

Tape  input  - One  SEDIT  or  EDIT  tape  read  from  unit  1.  There  is  no 
other  input . 

10.2.2.  DESCRIPTION  OF  OUTPUT 

Tape  output  - The  principle  output  is  two  tapes;  one  tape  (on  unit  2) 

is  a copy  of  the  input  tape.  The  other  tape  (from  unit  3) 
is  a copy  with  one  106  word  line  per  record  instead  of 
94  106  word  lines  per  record.  This  tape  is  used  as 

input  for  the  filter  program. 

Printed  output  - The  header  is  printed,  this  being  the  only  normal 

output.  In  case  of  various  errors,  the  appropriate 
status  words  are  printed. 

10.2.3.  RUN  PREPARATION,  EXECUTION  CHARACTERISTICS 
Card  deck  setup  - See  Fig.  10.2.3.1. 

Subroutine  requirements  - NTRAN  to  handle  tapes. 

Subroutine  0LPRSC,  see  §10.3.3. 

Run  time  - The  program  runs  at  tape  read/write  speed. 


10.3.  REFERENCE  INFORMATION 


DETAILED  FLOW  CHART  - See  Fig.  10.3.1. 
DESCRIPTION  OF  VARIABLES  - See  Table  10.3.2. 
DESCRIPTION  OF  SUBROUTINE  - See  §10.3.3. 


237 


I 
N 
IB 
IR,  IW 
J 


Index  on  the  number  of  framelets  per  reel. 

Index  on  number  of  files  per  framelet  including  header. 
Array  used  in  I/O  by  NTRAN. 

Status  words  from  NTRAN. 

Index  used  in  subroutine  OLPRSC  for  writing  the  one  line 
records  of  LO  data. 


Table  10.3.2.  DESCRIPTION  OF  PROGRAM  VARIABLES  - COPYT 
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Fig.  10.3.1.  DETAILED  FLOW  CHART  - COPYT  (Continued) 
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Fig.  10.3.1.  DETAILED  FLOW  CHART  - COPYT  (Continued) 
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Fig.  10.3.1.  DETAILED  FLOW  CHART  - COPYT  (Continued) 


Fig.  10.3.1.  DETAILED  FLOW  CHART  - COPYT  (Concluded) 
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10.3.3.  SUBROUTINE  OLPRSC 
IDENTIFICATION 


Name/Title  - OLPRSC  (One  line  per  record  SEDIT  copy) 

Author /Date  - R.  L.  Wendt,  August  1971 

Organization  - ASR 

Machine  Identification  - UNIVAC  1108 

Source  Language  - FORTRAN  V 

PURPOSE/METHOD 


This  subroutine  produces  a copy  of  the  tape  on  unit  2,  written 
in  94  line  records,  on  unit  3 written  one  line  per  record.  The  header 
and  general  format  of  the  output  tape  are  the  same  as  the  input  tape. 
USAGE 

Calling  sequence: 

CALL  OLPRSC  (IB) 

The  variable  IB,  along  with  other  variables  used  by  OLPRSC,  are 
described  in  Table  10.3.2. 

DETAILED  FLOW  CHART  - See  Fig.  10.3.3.1. 


Fig.  10.3.3.1.  DETAILED  FLOW  CHART  - OLPRSC 


Fig.  10.3.3.1.  DETAILED  FLOW  CHART  - OLPRSC  (Continued) 
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Fig.  10.3.3.1.  DETAILED  FLOW  CHART  - OLPRSC  (Continued) 
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Fig.  10.3.3.1.  DETAILED  FLOW  CHART  - OLPRSC  (Continued) 


Fig.  10.3.  3.  1. DETAILED  FLOW  CHART  - OLPRSC  (Continued) 
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Fig.  10.3.3.1.  DETAILED  FLOW  CHART  - OLPRSC  (Continued) 
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Fig.  10.3.3.1.  DETAILED  FLOW  CHART  - OLPRSC  (Concluded) 
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11.  COMPUTER  PROGRAM  DOCUMENTATION  - MRGNDE 
11.1.  PROGRAM  DESCRIPTION 

This  program, while  belonging  properly  to  Project  A,  is  reported 
on  here  because  of  the  strong  connection  with  §§10  and  12,  in  that  its 
main  function  is  to  read  an  input  tape  and  write  three  tapes  with  the 
ultimate  purpose  being  to  write  the  data  one  line  per  record  while 
preserving  the  header  and  general  structure  of  the  tape. 

The  program  begins  by  initializing  parameters  and  counters.  The 
header  of  each  framelet  is  read  and  written  on  the  output  tape  as  it 
occurs  followed  by  an  end  of  file  mark. 

Records  of  94  lines  in  length  are  read  from  the  input  tape  and  are 
written  on  the  output  tape  a line  at  a time.  A count  of  the  number  of 
lines  is  recorded.  As  the  end  of  file  marks  are  encountered  for  the 
notch,  sub  framelets  and  edge  data  a counter  is  incremented  and  compared 
against  the  number  of  data  blocks  for  each  framelet.  When  equality 
occurs  an  end  of  file  mark  is  written  on  the  output  tape,  the  second  end  of 
file  mark  after  the  edge  data  is  skipped,  the  output  unit  swaps  reels  and 
rewinds.  In  this  case  the  process  is  repeated  for  the  remaining  framelets 
in  027,  025  where  028  is  the  first  framelet  on  the  edited  tape.  When  the 
process  is  complete  both  units,  input  and  output,  are  rewound. 

This  process  gives  the  output  tapes  the  same  format  (with  the 
exception  of  one-line  per  record)  as  full  framelet  tapes  we  made  from 
SEDIT  tapes,  and  makes  their  use  in  the  JOIN  program  possible.  Initially, 
these  tapes  were  also  used  with  the  tests  of  the  filter  program.  For  a 
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description  of  the  format  of  the  tapes  made  here,  see  the  report  on 
Project  A,  §10.4.1.2,  p.  147. 

11.2.  USAGE 

11.2.1.  DESCRIPTION  OF  INPUT 

Data  tape  from  Surveyor  3,  L0  III,  FR  154  H 
Framelets  028,  027,025  Edited. 

11.2.2.  DESCRIPTION  OF  OUTPUT 

Tape  output  - Three  tapes;  merged  data  tape  one  line  per  record, 
used  as  data  tape  for  JOIN  program. 

Printed  output  - The  only  normal  output  in  the  value  of  the  line 
counter  at  the  completion  of  the  data  read.  In 
the  event  of  an  error  on  read  or  write,  the 
appropriate  status  word  is  written. 

11.2.3.  RUN  PREPARATION 

Card  deck  setup  - See  Fig. ‘ 11.2.3.1. 

Subroutine  requirements  - NTRAN  tape  handling  routine. 

11.2.4.  EXECUTION  CHARACTERISTICS 

Run  time  - The  program  runs  at  tape  read/write  speed. 

11.3.  GENERAL  FLOW  CHART 
See  Fig.  11.3.1. 

11.4.  REFERENCE  INFORMATION 

11.4.1.  DETAILED  FLOW  CHART 
See  Fig.  11.4.1.1. 

11.4.2.  DESCRIPTION  OF  VARIABLES 


See  Table  11.4.2.1. 
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Fig.  11.2.3.1.  DECK  SETUP  (UNIVAC  1108)  - MRGNDE 


▼ 


Fig.  11.3.1.  GENERAL  FLOW  CHART  - MRGNDE 
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Fig.  11.3.1.  GENERAL  FLOW  CHART  - MRGNDE  (Continued) 
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Fig.  11.3.1.  GENERAL  FLOW  CHART  - MRGNDE  (Concluded) 


Fig.  11.4.1.1.  DETAILED  FLOW  CHART  - MRGNDE 
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Fig.  11.4.1.1.  DETAILED  FLOW  CHART  - MRGNDE  (Continued) 
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Fig.  11.4.1.1.  DETAILED  FLOW  CHART  - MRGNDE  (Continued) 
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Fig.  11.4.1.1.  DETAILED  FLOW  CHART  - MRGNDE  (Concluded) 


NWPR 

NFRMLT 

L 

KT 

IB 

IR,IW 


- Number  of  words  per  row  of  framelet. 

- Number  of  framelets. 

- Line  counter. 

- Framelet  counter. 

- Array;  used  in  read  and  write  by  NTRAN. 

- Status  words;  input  and  output  for  NTRAN. 


Table  11.4.2.1 
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12.  COMPUTER  PROGRAM  DOCUMENTATION  - MCSF 

12.1.  PURPOSE 

This  program  merges  a SEDIT  or  EDIT  tape  with  output  of  the  filter 
program  into  a data  tape  which  is  suitable  for  use  by  the  Lunar  Orbiter 
Analysis  Program.  The  merged  tape  has  one  chit  which  is  filtered  to  be 
processed  by  the  Analysis  Program  to  study  the  contour  map.  All  data 
corrections  are  performed  by  the  filter  program  (see  §9)  and  thus  need 
not  be  done  in  the  analysis  program. 

12.2.  USAGE 

12.2.1.  DESCRIPTION  OF  INPUT 

Tape  input:  Unit  1 - SEDIT  or  EDIT  tape. 

Unit  2 - Output  tape  from  FILTER  (§9). 

Card  input:  IFILE  - The  file  number  of  the  filtered  chit. 

12.2.2.  DESCRIPTION  OF  OUTPUT 

Tape  output:  Unit  3 - Merged  tape. 

Printed  output:  The  header  is  printed,  normally.  Should  errors 

in  tape  format  or  read/write  appear,  the  appropriate 
status  word  is  written. 

12.2.3.  RUN  PREPARATION 

Card  deck  setup  - See  Fig.  12.2.3.1. 

Required  subroutines  - NTRAN  tape  handling  routine. 

12.2.4.  EXECUTION  CHARACTERISTICS 

The  program  executes  at  tape  read/write  speed;  most  of  the  time 
charged  for  the  job  is  probably  spent  in  hanging  tapes. 
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12.3.  REFERENCE  INFORMATION 

DETAILED  FLOW  CHART  - See  Fig.  12.3.1. 
DESCRIPTION  OF  VARIABLES  - See  Table  12.3.2. 
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Fig.  12.2.3.1.  CARD  DECK  SETUP  (UNIVAC  1108)  - MCSF 


271 


IB  - Array  used  both  on  input  and  output. 

KB  - Array  used  in  reading  filter  output  tape  and  used  to 
pack  IB  with  94  lines  before  writing  records. 

I - Index  on  number  of  files  per  tape. 

IFILE  - The  file  number  of  the  filtered  chit. 

INDX,INDX1  - Indices  used  in  packing  the  filtered  chit  into  IB  to 
provide  records  of  94  lines. 

NWDS  - The  residual  record  of  a chit, not  being  a full  94  lines, 
has  upon  reading  a file  mark  in  loop  16;(N-1)*106  words 
or  N-l  lines;  usually  80  lines  if  a chit  is  738  lines. 


Table  12.3.2.  DESCRIPTION  OF  VARIABLES  - MCSF 


Fig.  12.3.1.  DETAILED  FLOW  CHART  - MCSF  (Continued) 


Fig.  12.3.1.  DETAILED  FLOW  CHART  - MCSF  (Continued) 
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Fig.  12.3.1.  DETAILED  FLOW  CHART  - MCSF  (Continued) 


Fig.  12.3.1.  DETAILED  FLOW  CHART  - MCSF  (Continued) 
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Fig.  12.3.1.  DETAILED  FLOW  CHART  - MCSF  (Continued) 


Fig.  12.3.1.  DETAILED  FLOW  CHART  - MCSF  (Continued) 
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Fig.  12.3.1.  DETAILED  FLOW  CHART  - MCSF  (Concluded) 
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Part  III  PHOTOMETRIC  FUNCTION 

An  examination  of  the  products  of  the  Analysis  Program  suggested 
that  the  photometric  function  was  biased  for  low  brightness  values. 

This  conjecture  received  little  support,  however,  from  the  3D  plot 
(using  the  pinplot  machine  at  MSC) . We  initially  tried  changing  values 
in  the  photometric  function  table,  but  this  lead  to  unsatisfactory 
results.  Changes  which  should  have  corrected  a bias  for  low  brightness 
values  caused  the  contours  to  bunch  up  where  the  slope  was  about 
2-3  degrees. 

At  the  same  time,  work  on  the  D log  E curve  was  yielding  better 
contour  maps  using  the  old  photometric  function.  Accordingly,  we 
concluded  that  the  photometric  function  used  by  the  Analysis  Program  is 
acceptable . 

The  3D  p i'r*> r'  1 ° mentioned  above  is  in  the  care  of  Dr.  W.  Naugls, 
1410  Winding  Road,  College  Station,  Texas  77840. 
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Part  IV  THE  ANALYSIS  PROGRAM 

1.  Introduction 

The  study  (Statistical  Error  Analysis  of  Photometric  Data)  which 
constitutes  Project  C of  Contract  NAS  9-10577  was  intended  to  investigate 
the  errors  in  the  Analysis  Program.  Initial  work  of  the  study,  begun 
in  March  1970,  involved  the  current  Analysis  Program  in  use  then.  We 
selected  the  version  appropriate  to  LO  III  since  that  program  was  being 
used  in  Projects  A and  B.  Considerable  time  was  spent  preparing  working 
documentation  of  the  critical  subprograms,  for  the  authors  of  these 
programs  never  furnished  more  than  scant  general  flow  charts  and  vague 
descriptions  of  the  usage.  This  is  particularly  true  of  subroutine 
RECPO;  this  program  was  written  in  SLEWTH  II  assembly  language,  and 
performs  the  integration  along  radial  lines  thru  the* zero  phase  point. 

This  preliminary  work  had  reached  a certain  state  of  completion  when 
we  learned  of  major  changes  being  completed  in  the  Analysis  Program. 

We  include  here  a table  of  subprograms  of  the  Analysis  Program  as  the 
program  was  in  March,  1970  and  as  it  was  in  December,  1970.  One  can  see 
at  a glance  that  a complete  revamp  of  the  Analysis  Program  had  been 
undertaken,  the  main  direction  of  which  seemed  to  be  the  elimination  of 
SLEWTH  II  assembly  language  programs  of  over  twenty  instructions. 


Old  Subprogram 

New  Subprogram 

Type. 

Change 

ALNTAB 

ASM 

omitted 

AUTOCO 

FOR 

new 

BLOCKD 

BLOCKD 

FOR 

CONGRD 

CONGRD 

FOR 

CONTUR 

CONTUR 

FOR 

COUNT 

FOR 

omitted 

DANCE 

DANCE 

FOR 

DMPBUF 

FOR 

omitted 

DSPLAY 

DSPLAY 

FOR 

DUMMY 

DUMMY 

FOR 

changed 

FDATA 

FOR 

omitted 

FILTER 

FILTER 

FOR 

FIX10 

ASM 

omitted 

FIX30 

ASM 

omitted 

FLT10 

ASM  . 

omitted 

FLT30 

ASM 

omitted 

FPGINT 

FOR 

omitted 

FPH2 

FOR 

new 

FPH3 

FOR 

new 

FPH4 

FOR 

new 

FPH5 

FOR 

new 

FPM2 

FOR 

new 

FPM3 

FOR 

new 

FPM4 

FOR 

new 

FPM5 

FOR 

new 

Table  1.1  Subprograms  of  Analysis  Program 
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Old 


Subprogram 

New  Subprogram 

Type 

Change 

PRO 

FOR 

new 

PSDPAK 

FOR 

new 

QUIK3L 

FOR 

omitted 

RADREC 

FOR 

new 

RDMKS 

RDMKS 

FOR 

changed 

READ 

FOR 

omitted 

READPO 

FOR 

omitted 

REC1 

FOR 

new 

RECPAC 

FOR 

new 

RECPO 

ASM 

rewritten 

RECPO 

FOR 

FORTRAN 

RECRUN 

FOR 

new 

RMS 

RMS 

FOR 

RPREC 

FOR 

new 

RPSD 

FOR 

new 

SIMML 

SIMML 

FOR 

STATGR 

STATGR 

FOR 

SUB1 

SUB1 

FOR 

SUMF 

bUMF 

ASM 

TABR 

FOR 

omitted 

TANSB 

TANSB 

FOR 

changed 

TRANS 

FOR 

new 

TRICON 

FOR 

new 

TRISEL 

FOR 

new 

UMP 

UMP 

ASM 

FRAMEV 

FOR 

to  FRAME 

Table  1.1  Subprograms  of  Analysis  Program  (continued) 


Old 


Subprogram 

New  Subprogram 

Type 

Change 

FRAME 

FOR 

GDATA 

GDATA 

FOR 

GEER 

FOR 

omitted 

GEER1 

FOR 

omitted 

GET 

GET 

ASM 

HANPSD 

HANPSD 

FOR 

updated 

HAZMAP 

FOR 

omitted 

HMOUTP 

FOR 

omitted 

INPUT 

INPUT 

FOR 

INTSUB 

INTSUB 

FOR 

MAXI 

FOR 

new 

NCHI 

NCHI 

ASM 

PACK 

PACK 

ASM 

PACK6 

PACK6 

ASM 

PHISB 

PHISB 

FOR 

corrected 

PLOT  3 

FOR 

new 

PLOTV 

FOR 

omitted 

PLOTQ 

FOR 

new 

PMAP 

PMAP 

ASM 

POREC 

ASM 

rewritten  in 

POREC 

FOR 

FORTRAN 

PREG 

PREG 

ASM 

PRETTY 

PRETTY 

ASM 

PRINTM 

PRINTM 

FOR 

UNPACK 

UNPACK 

ASM 

WRITIH 

FOR 

omitted 

WRRL 

FOR 

omitted 

XPOHI 

FOR 

new  " 

XPOME 

FOR 

new 

XPO.SUR 

FOR 

omitted 

Table  1.1  Subprograms  of  Analysis  Program  (concluded) 
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Subroutines  RECPO  and  POREC,  as  written  in  SLEWTH  II,  incorporated 
some  of  the  tightest  programming  we  have  ever  seen.  The  program 
maximized  speed  by,  for  example,  carrying  computations  only  so  far  as 
they  were  significant,  and  saving  partial  results  which  even  FORTRAN  V 
would  miss.  However,  the  fact  that  these  subroutines  were  essentially 
undocumented,  and  were  written  in  an  unfamiliar  language,  made  the 
Analysis  Program  hard  to  use.  (If  one  does  not  understand  the  program 
in  use,  then  one  has  difficulty  tracing  an  apparent  error  and  separating 
data  errors,  usage  errors  and  programming  errors.)  Thus,  it  was  possibly 
a good  idea  to  rewrite  the  Analysis  Program  in  FORTRAN  V,  .since  no  expert  ' 
programmers  were  available  who  could  understand  the  SLEWTH  II  subroutines. 
This  change  caused  the  Analysis  Program  to  require  about  twice  the  run 
time,  but  this  may  not  have  been  considered  excessive. 

However,  the  programming  change  also  cleaned  up  the  Analysis  Program 
and  made  the  error  analysis  part  of  Project  C rather  simple;  it  no  longer 
seemed  like  our  kind  of  a job.  Indeed,  much  of  the  work  (working 
documentation  of  RECPO  and  POREC,  preparation  of  flow  charts)  had  already 
been  done  when  we  learned  of  the  change  in  the  Analysis  Program.  By 
that  time,  the  difficulties  of  Project  A,  coupled  with  its  greater 
intrinsic  interest,  had  tatcen  over  the  effort  of  the  workers.  By  the 
time  these  difficulties  were  overcome,  the  Analysis  Program  was  not  being 
used  for  anything.  It  therefore  seemed  foolish  to  continue  work  on  error 
analysis,  and,  instead,  we  report  on  what  findings  we  made  using  the 
Analysis  Program  in  Projects  A and  B. 

We  discovered  several  changes  relevant  to  Project  B and  one  relevant 
to  Project  A.  The  whole  sequence  of  D log  E - CFAC  - RDMKS  corrections 
is  done  inefficiently  and  inaccurately  in  the  Analysis  Program.  For  no 
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time  spent,  while  a chit  is  being  read,  one  could  perform  all  these 
corrections  PLUS  apply  a 3 x 3 filter  and  take  every  other  element  - 
every  other  row  (EOEEOR)  . The  time  saving  results  from  the  fact  that 
all  corrections  can  be  performed  at  once,  in  one  pass,  at  tape  read  speed. 
This  work  is  reported  on  in  2 below. 

In  Project  A,  the  final  result  was  the  join  of  an  approximate 
9 chit  area.  The  geometry  of  the  situation  made  it  possible  to  prepare 
a "simulated"  chit  (about  2.71  x 2.71  times  the  size  of  a real  chit)  by 
selecting  every  2.71  element.  (The  details  are  reported  on  in  3.)  We 
attempted  to  make  the  Analysis  Program  do  a contour  map  of  this  area  and 
found  that  changes  .in  the  state  vectors  XX,  YY  and  ZZ,  and  in  DX,  DY 
(multiplying  each  by  2.71)  made  a beautiful  contour  map  of  this  nearly 
9 chit  area.  There  seems  to  be  no  limit  to  this  technique;  the 
assumptions  made  in  the  analysis  procedure  are  clearly  valid  for  at 
least  a 10  x 10  chit  size  area. 

Incidently  to  this  part  of  our  report  we  describe  the  method  of 
making  the  tape  which  made  Fig.  12.3,  p.  212  of  the  report  on  Project  A. 

In  Project  B we  found  that  filtered  data  made  nicer  contour  maos 
than  unfiltered  data.  This  is  probably  due  to  ailaising  in  the  sampling 
process,  since  the  EOEEOR  is  only  good  up  to  about  60  1/mm  and  we  found 
significant  noise  in  the  digitizer  well  above  this  frequency.  The 
details  are  reported  on  in  4. 

2.  Improved  Corrections . In  this  section,  we  summarize  a special 
application  of  work  done  for  Projects  A and  B.  In  order  to  understand 
the  reasoning  leading  to  the  improved  corrections  in  the  Analysis  Program, 
we  need  to  review  the  method  and  order  of  the  corrections  in  the  Analysis 
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The  Analysis  Program  initially  selects  E0EE0R  in  subroutine  GDATA, 
called  before  any  other  corrections  are  made.  The  EOE  selection  is 
performed  by  SLEWTH  II  subroutine  UMP;  EOR  in  by  a DO  logs  and  NTRAN. 

(The  arithmetic  in  DO  loop  4 is  excessively  complicated,  but  this  is  a 
minor  point.)  The  Analysis  Program  now  calls  subroutine  RDMKS . This 
subroutine  creates  a smear  on  each  side  of  the  pciture  where  the  drum- 
marks  used  to  be,  replacing  the  drummark  region  by  linear  interpolation 
of  the  drummark  area  boundary  points.  (Using  the  algorithm  developed 
for  Project  A would  speed  and  substantially  improve  this  subroutine,  but 
we  shall  see  an  even  better  improvement  is  possible.)  In  case  there  is 
a mirror  in  the  camera  setup  (IMED  = 0)  (usually!),  the  rows  have  to  be 
turned  over.  This,  also,  represents  wasteful  computation.  Next, 
subroutine  XPOHI  (or  XPOHM)  is  called,  resulting  in  more  calculations 
and  needless  UNPACK  - PACK6  combinations.  In  addition,  XPOHI  does  a 
bewildering  amount  of  statistice,  which  seems  to  be  seldom  wanted. 

The  point  of  this  summary  of  how  the  Analysis  Program  gets  started 
is  that,  for  each  chit,  nearly  100,000  needless  UNPACK  - PACK6  calls  are 
made  in  a total  of  14  DO  loops  and  thru  subroutines.  This  only  takes  ten 
or  fifteen  seconds,  probably  not  critical,  but  the  point  is  that  no  time 
at  all  should  be  taken,  since  all  the  corrections  can  be  done, along  with 
the  application  of  a fast  3x3  filter,  while  the  data  is  being  read 
from  tape. 

The  general  flow  chart  of  an  algorithm  which  performs  this  is  given 
in  Fig.  2.1.  The  large  box  (’3x3  FILTER  . ..’)  should  be  self- 
explanitory  to  one  familiar  with  Projects  A and  B.  We  summarize: 

RDMKS  - 

Replaces  IBUF(l)  by  IBUF(2) . 

Replaces  IBUF(8)  and  IBUF(9)  by 
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mxo  (IBUF(8),  IBUF  (7) ) and  MAXO  (IBUF(9),  IBUF(7)). 

Call  this  operation  REP(8,  9,  7).  The  algorithm  then  performs 
REP(10,  11,  12) (completing  the  removal  of  the  left  druramarks) , and  then 
REP  (625,  626-,  624),  REP  (627,  628,  629)  (completing  the  removal  of  the 
right  drummarks) . 

CFAC*10  - 

This  is  the  modified  correction  factor  routine  developed  in  the  filter 
program.  The  reasons  for  the  change  is  not  apparent  until  the  D log  E 
corrections  are  applied.  The  net  effect  is  to  improve  the  tonal 
resolution  at  the  end  of  DLOGE  curve  where  the  most  rapid  changes  occur. 
3x3  FILTER  - 

This  filter  is  a symmetric  3x3  filter  with  an  upper  frequency  cutoff 
of  about  60  1/mm  and  with  X2  enhancement  at  about  20  - 30  1/mm.  The 
filter,  being  symmetric,  should,  be  applied  using  the  more  efficient  code 
dev  eloped  j.o  l Project  B which  makes  use  of  the  symmetry.  The  reason  the 
filter  is  so  rapidly  applied  is  not  only  owing  to  its  symmetry;  also,  only 
EOEEOR  need  be  filtered. 

3.  NINE  CHIT  ANALYSIS 

The  JOIN  program  documented  in  Project  A,  took  three  framelets 
2068  rows  long  and  made  one  joined  area  about  three  chits  wide  and  long. 
(The  exact  width  was  1878  elements.  This  is  less  than  3 x 636  = 1908 
because  of  overlap  and  the  fact  that  the  width  must  be  a multiple  of 
six.)  Because  the  chits  were  staggared,  2012  rows  only  were  formed  in 
the  join  of  thru  2068  row  subframelets . The  program  SELECT  was  written 
to  select  every  2.71  x 2.71  element  from  the  join.  The  general  flow 
chart  of  this  program  is  given  in  Fig.  3.1.  Prior  to  performing  SELECT, 
the  data  (JOIN  of  2068)  was  filtered  by  the  7x7  filter  given  in 


Fig.  3.1  General  Flow  Chart,  SELECT 
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Fig.  3.2  Filter,  applied  before  SELECT 
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Fig.  3.3  Filter,  applied  after  SELECT 
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Fig.  3.4  Contour  map,  nine  chit  area. 
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Fig.  3.2.  After  the  selection,  the  filter  algorithm  for  chit  size  data 
was  applied  with  the  filter  in  Fig.  3.3.  To  summarize,  we  performed  the 
following  operations:  JOIN,  FILTER  with  Fig.  3.2,  SELECT  every 

2.71  x 2.71,  FILTER  with  Fig.  3.3,  and  sent  the  resulting  picture  (now 
636  x 738)  to  JPL-IPL  for  reproduction. 

The  same  tape  was  merged  with  a header  and  edge  data  so  that  it 
could  be  analyzed  by  the  Analysis  Program  as  we  have  done  with  other 
filtered  data.  By  changing  the  state  vectors  (by  multiplying  by  2.71), 
and  by  multiplying  DX  and  DY  by  2.71,  we  were  able  to  produce  the  contour 
map  in  Fig.  3.4.  The  MSC  number  of  this  tape  is  49634. 

The  picture  of  the  JOIN  area  in  Project  A (Fig.  12.3,  p.  212)  was 
made  by  a similar  (although  much  simpler)  process.  We  first  filtered  to 
cutoff  above  60  1/mm;  then  E0EE0R  was  selected  (making  a picture  929  x 1006, 
which  became  924  x 1002  on  packing)  and  this  tape  was  sent  to  JPL-IPL 
for  display. 

4.  Filtered  Input  for  the  Analysis  Program.  Using  the  filter  given  in 
Fig.  3.3,  we  filtered  the  SURVEYOR  III  SITE  chit,  and  prepared  the 
contour  map  in  Fig.  4.1.  (The  analysis  program  was  modified  to  remove 
corrections  we  had  already  performed.)  This  filter  has  parameters 
a - 1.35,  b = 40.  It  is  interesting  that  the  filtered  chit  contour  map 
shows  the  SURVEYOR  III  crater  to  be  about  16.5  meters  deep,  vs.  12.5 
meters  for  our  best  other  map.  The  contours  arc  obviously  smoother  and 
easier  to  interpret.  Since  filtering  could  have  been  incorporated  with 
no  additional  computer  time  spent.,  it  is  unfortunate  that  this  was  not 


done. 


